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Subject: Preliminary Release of Date: 6/20/72 

UNIX Implementation Document 



The contents of this document are incomplete and subject to rapid 
change both in subject matter . end organization. The purpose of this 
release is to make the information it contains available to persons 
who have an. immediate and pressing need. The sections that are 
included here contain the following information: 

Se ction Contents 

E.O - E.10 Commented listing of UNIX operating 

system 
E.ll Commented listing of UNIX shell 

E.12 Commented listing of UNIX 

initialisation program 
5' System Overview 

G- Data Base Item Descriptions 

H.O - H.9 Verbal descriptions of UNIX 

routines . 



listings in E.O - S„9. However, the routines are listed in alphabetical 
order in the K sections, rather than in the order they apt: ear in the 
listings. 



<I. DeFelice 



modifications to UNIX to accomodate the T4002A graphic console 
uo Page 1 add 

gks = 1 77 / graphic input status 

gkb = 177 / graphic input buffer 

gps = 1 77 / graphic output status 

gpb = 177 / graphic output buffer 

uo Page 2 add somewhere 

dspi* 240 / graphic input interrupt vector 
uo Page 3 add at end of "set up time out routines" 

mov $ wakdsp, (rO) / time out subroutine for display 
uo Pago 4 add at end of device directory 

23. 

<dsp\0\0\0\0> / T4002A 

u7 Page 4,5 add to end of iopen list 

odsp / T4002A 

add program odsp below 

odsp: / open T4002A for reading or writing 

mov $100,*$gks / set M interrupt enable on input 

mov $14,r1 / put "np" in r1 (erase, home) 

jsr r0,chout / output fi the char 

mov $21 ,r1 / put "dd" in r1 (turn on joystock) 

jsr r0,chout / output char 

mov $37,r1 / put "us" in r1 (alpha mode) 

jsr r0,chout / output char 

br sret 

/Note: a graphic block and buffer like the tty's are not used. May 
need thern when more than 1 disply is added. 

u6 Page 1 add at end of readi list 

rdsp / T4002A 

add the routine rdsp 

rdsp: / read from the graphics terminal 

mov $240,*$ps / set ps to 5 

jsr r0,getc; 22 / take char off clist and put it in r1 
br If / list is empty, go to sleep 

clr *$ps / clear ps 

jsr rO, passe / move char to user core 

br rdsp / get next char 
1: 



mov r5,-(sp) / save r5 

jsr rO, sleep; 22 / put input process to sleep 

mov (sp)+,r5 / restore r5 

br ... rdsp / try again 

add somewhere dspi '": 

dspi: / graphic display input interrupt routine 

jsr rO,setisp / save r1 , r2, r3 

mov *$gkb,r1 / put char in r1 

inc *$,gks / set reader enable bit 

bic $I177 f r1 / strip char to 7 bits 

jsr rO,putc; 22 / put char on the clist 
br If / if full return 
/Note: char is not echoed and quit 
/ (fs) and interrupt (del) char are 
/ not processed 

crop r1 , $4 / char = eot 

beq 1f 

cmp r1,$12 / char ■ .If 

beq 1 f 

cmpb cc+22,$15 / are there less than 15 char on the clist? 

bio retisp / yes, return 

1: jsr rO,wakeup;runq; 22 / wakeup the process that's inputting 
br retisp / return 

u6 Page 3 add to bottom of writei list 

wdsp / T4002A 
(^add routines wdsp, chout, and wakdsp 

/ write routine for the T4002A graphics console 

/ a character at a time is taken out of the graphic 

/ instruction buffer and sent over to the T4002A 

wdsp: / write on the graphic display 

jsr rO,cpass / set next char from user buffer area 

/if none, return to syswrite 
tst r1 / is the character null 
beq wdsp / yes, get the next character 
jsr rO, chout / output the character 
br wdsp / get next character 

chout: / do the actual output of the character 

tstb *$gps / check for output ready 

bge chout / wait for ready 
1: 

tstb toutt+12 / check time out 

bne 1b / wait for it to be 

movb r1 ,*$gpb / output the character 

cmpb r1,$14 / is char ff (erase, home?) 

beq 1 f 

cmpb r1,$30 / is char "can" (erase)? 
beq 1f 

cmpb r1,$5 / is char enq (digitize joystock)? 



1: 



2: 



beq 2f 

rts rO 

movb $30 f toutt+12 / put 500 ms delay for erase 

jsr rO, sleep; 23 / put output process to sleep 

rts rO 

movb $2,toutt+12 / put in 20 ms delay for joystick 

rts rO 



/ time out subroutine for display 

wakdsp: / wakeup the output process 

jsr rO, wakeup; runq+2; 23 
rts rO 



UNIX IMPLEMENTATION 



/ u o — . unix 

cold e 
orig =0 • 



/ orig s 0. relocatable 



rkda * 177412 / disk address reg 
rkds = 1 77400 / driv status reg 
rkcs a 177404 / control status reg 
rcsr ■ 174000 / receiver status reg 
rcbr *= 174002 / receiver buffer reg 
tcsr « 174004 / xmtr status reg 
tcbr = 174006 / xmtr buffer reg 
test *= 177340 / dec tape control status 
teem = 177342 / dec tape command reg 
tewe * "1 77344 / word count 

tcba = 177346 / bus addr 

tedt m 177350 / data reg 

des » 177460 / drum control status 
dae » 177470 / drum address extension 
Iks a 177546 / clock status reg 
prs = 177550 / papertape reader status 
prb = 177552 / buffer 

pps m 177554 / punch status 

ppb = 177556 / punch buffer 

/lps a 177514 line printer status 
/lpb a 177516 line printer buffer 
tks = 177560 / console read status 
tkb « 177562 / read buffer 
tps a 177564 / punch status 
tpb a 177566 / punch buffer 
ps a 177776 / processor status 



rk03/rk11 

rk03/rk11 

rk03/rk11 

dc-11 

dc-11 

dc-11 

dc-11 

tc1l/tu56 

tc1 1 /tu56 

tcH/tu56 

tc1l/tu56 

tc1l/tu56 

rf11/rs11 

rf1l/rs11 

kw11-l 

pc11 

pc11 

pc11 

pc11 

( future ) 

( future } 

asr-33 

asr-33 

asr-33 

asr-33 



halt a 
wait a 1 
rti a 2 

nproc a 16» / number of processes 
nfiles a 50. 
ntty a 8+1 
nbuf a 6 

•if cold / ignored if cold a 
nbuf a 2 

•endif 

core a orig+40000 / specifies beginning of user's core 

ecore a core+20000 / specifies end of user's core (4096 words) 

Ivf 4;4 ^nit by copy 

4' (, unkni ;0 m bus error 
fo'*t fpsym;0 *" illg in tr 

H;^ unkni ;0 / trace and trap (see Sec. B.1 page ) 
to; i^ unkni ;0 / trap 
nA^ztpaniCfO / pwr 
^oi^rtssymjO / emt 
y\"Vi sysent;0 / sy3 



/ 
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/ 



processor level 5 



s orig+60 

/rt / z ttyi;240 / interrupt vector tty in 
r&.(U ttyo;240 / interrupt vector tty out 
?o ; >^PPti;240 / punch papertape in 

74)?frppto;240 / punch papertape out 

l(i)>« 1 clock; 340 / clock interrupt vector ; processor level 7 
= orig+200 - ■ ■ , 

lpto; 240 line printer interrupt ; processor level 5 (future) 

» orig+204 

drum; 300 / drum interrupt ; processor level 6 
a orig+214 

tape; 300 / dec tape interrupt 

disk; 300 / rk03 interrupt 
* orig+300 

0*4+trcv; 240; 0*4+txmt; 240 / dd 1 input; output interrupt vectors 

1*4+trcv; 240; 1*4+txmt; 240 

2*4+trcv; 240; 2*4+txmt; 240 

3*4+trcv; 240; 3*4+txmt; 240 

4*4+trcv; 240; 4*4+txmt; 240 

5*4+trcv; 240; 5*4+txmt; 240 

6*4+trcv; 240; 6*4+txmt; 240 

7*4+trcv; 240; 7*4+txmt; 240 



• s orig+400 
/ copy in transfer vectors 

mov secore t sp / put pointer to ecore in the stack pointer 

jsr r0,copyz; 0; 14 / clear locations to 14 in core 

mov $4,r0 

clr r1 

mov r0,(rl) + / put value of 4 into location 

mov r0,(r1 ) + / put value of 4- into location 2 

mov $unkni f (rl)+ / put value of unkni into location 4; 

/ time out, bus error 
clr (rl)+ / put value of into location 6 
mov $fpsym,(rl)+ / put value of fpsym into location 10 
clr (r1 )+ / put value of into location 12 
/ clear core 

•if cold / ignored if cold = 

halt / halt before initializing rf file system; user has 

/ last chance to reconsider 
•endif 

jsr r0,copyz; systm; ecore / clear locations systm to ecore 
mov $s.chrgt+2,clockp / intialize clockp 
/ allocate tty buffers; see H.O for description 



1: 



mov $buffer t r0 

mov $tty+6 t r1 

mov r0,(n) 

add $140. f r0 / tty buffers are 140. bytes long 

add $8,r1 

cmp r1 f $tty+[ntty*8] / has a buffer been assigned for each tty 

bio 1b 



/ allocate disk buffers; see H.O for description 
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/ bus address 
/ word count 
/ buffer space 



mov $bufp,r1 

1: 

mov rO , ( r1 ) + 

add $8,r0 

mov r0,-2(r0) 

mov $-256., -4 (rO) 

add $512.,r0 

cmp r1 f $bufp+nbuf+nbuf 

bio 1b 

mov $sbO,(rl)+ / I/O queue entry drum 

mov $sb1 f (rl)+ / I/O queue entry disk (mounted device) 

mov $swp,(rl)+ / I/O queue entry core image being swapped 

mov $[systra-inode]\/2,sb0+4 / sets up initial buffers per 

/ format given in 

mov $systm,sb0+6 / memory map 

mov $-512.,sb1+4 

mov $mount , sb1 +6 

mov $user f swp+6 

/ set devices to interrupt 

mov $100,*$lks / put 100 into clock status register; 

/ enables clock interrupt 

/ set up time out subroutines 

mov $touts,r0 

mov $startty.(rO)+ / if toutt = call startty 

mov $pptito,(r0)+ / if toutt+1 = call pptito 

tst (r0)+ / add 2 to rO 

mov $ntty-1 , r1 
1: 

mov $xmtto f (r0) + / if toutt+2 thru toutt+2+ntty=0 call xmtto 

dec r1 

bne 1b 

/ free all character blocks; see H.O for description 



1: 



mov 
mov 

Jsr 

sub 
bgt 



$51C.,r2 
$-1 ,r1 

r0,put 

$2,r2 

1b 



/ set up drum swap addresses; see H»0 for description 
mov 



1: 



$1024.-64. f r1 / highest drum address; high 64 blks allocated 
/ to UNIX 
mov $p.dska,r2 / p.dska contains dis^ addresses for processes 

sub $17.,r1 / 17 blocks per process 

mov r1,(r2)+ 

cmp r2,$p.dska+nproc+nproc 

bne 1b 
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/ free rest of drum 



1: 



.if cold 

mov $128.,systra / initialize word 1 of drum superblock image; 

/ number of bytes in free storage map=128. 
mov $64.,systm+2+128. / init. wd 66. of superblock image; # of 

/ bytes in i-node map=64. 



dec 
jsr 

cmp 
bgt 

/ zero i list 



r1 / r1*687.,...,34. 

rO,free / free block *rl', i.e., set bit *r1 * in free 

/ storage map in core 
r1,$34. / first drum address not in i list 
1b / if block 34 has been freed, zero i list 



1: 



dec 
jsr 
tst 
bgt 

•endif 



rO / rO = 33.,. . .,1 

rO, clear / zero block *r1* on fixed head dis r 

r1 

1b / if blocks 33,..., 1 have all been zeroed, done. 



/ make current program a user 

mov $41., rO / rootdir set to 41 and never changed 

mov rO, rootdir / rootdir is i-number of root directory 

mov rO f u.cdir / u.cdir is i-number of process current directory 

mov $1 ,r0 

movb rO,u.uno / set process table index for this process to 1 

mov rO,mpid / initialize mpid to 1 

mov rO,p.pid / p.pid identifies process 

movb rO,p.stat / process status =* 



•if cold 



/ 
/ 



1 i.e., active 
free 

2 waiting for a child to die 

3 terminated but not yet waited 
for 



/ initialize inodes for special files (inodes 1 to 40.) 



1: 



mov $40., r1 / set r1 =i -node-number 40. 

Jsr r0,iget / read i-node 'r1 ' from disk into inode area of 

/ cere and write modified inode out (if any) 

mov $10001 7, i .figs / set flags in core image of inode to indi- 

/ cate allocated, read (owner, non-owner), 
/ write (owner, non-owner) 

movb $1,i.nlks / set no. of links s 1 

movb $1,i.uid / set user id of owner = 1 

jsr r0,setimod / set imodal to indicate i-node modified, also 

/ stuff time of modification into i-node 

dec r1 / next i— node no. = present i-node no.-1 

bgt 1b / has i-node 1 been initialized; no, branch 

/ initialize i-nodes n.,...,47. and write the root device, binary, etc., 
/ directories onto fixed head disk, user temporary, initialization prog. 
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1: 



mov $idata,rO / rOsbase addr. of assembled directories, 
mov $u.off ,u.fofp / pointer to u.off in u.fofp (holds file 

/ offset) 

mov (rO)+,n/r1=41 .,...,47; "o" in the assembled directory 

/ header signals last 
beq 1f / assembled directory has been written onto drum 
jsr rO,imap / locate the inode map bit for i-node *r1 ' 
bisb mq,(r2) / set the bit to indicate the i-node is not 

/ available 
jsr rO,iget / read inode 'rl * from disk into inode area of 

/ core and write modified i-node on drum (if any) 
mov (rO)+,i.flgs / set flags in core image of inode from 

/ assembled directories header 
movb (rO)+.i.nlks / set no. of links from header 
movb (rO)+,i.uid / set user id of owner from header 
jsr rO,setimod / set imod*1 to indicate inode modified: also, 

/ stuff time of modification into i-node 
mov (rO)+,u. count / set byte count for write call equal to 

/ size of directory 
mov rO,u.base / set buffer address for write to top of directory 
clr u.off / clear file offset used in 'seek' and 'tell' 
add u.count,rO / rO points to the header of the next directory 
jsr rO,writei / write the directory and i-node onto drum 
br 1b / do next directory 
•endif 

/ next 2 instructions not executed during cold boot. 

bis $2000, sbO / sbO I/O queue entry for superblock on drum; 

/ set bit 10 to 1 
r0,ppoke / read drum superblock 



1: 



jsr 

tstb 
bne 



sb0+1 / has I/O request been honored (for drum)? 
1b / no, continue to idle. 



1: 



1: 
2: 

panic; 
1; 



decb sysflg / mormally sysflag=0, indicates executing in system 
sys exec; 2f; 1f / generates trap interrupt; trap vector = 

/ sysent; 
br panic / execute file/etc/init ->> 

2f ;0 ^ feu 1%*W £*> * *>* *~ *'" 

</etc/init\0> / UNIX looks for strings term, noted by nul\0 



clr ps 

dec $0 

bne 1b 

dec $5 

bne 1b 

jmp *$1 73700 / rom loader address 
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rtssym: 



0: 



2: 



3: 



4: 



5: 



7: 
1i 



1: 



mov 
mov 
mov 
mov 
bic 
asl 
jmp 



r0,-(sp) 

r1,-(sp) 

4(sp),r0 

-(r0),r0 

$17, rO 

rO 

*1f(r0) 



0f;1f;2f;3f;4f;5f;badrts;7f 



mov 

br 

mov 
br 

mov 
br 

mov 
br 

mov 
br 



badrts : 



cmp 

bio 

crap 

bhis 

bit 

bne 

tst 

beq 

add 

mov 

mov 

mov 

rti 

rts 
rts 
rts 
rts 
rts 
rts 
rts 
rts 



mov 
mov 



2(sp),r0 
1f . 

r2,r1 
1f 

r3,r1 
1f 

r4,r1 
1f 

r5,r1 
1f 



mov 8,(sp),r1 



r1 ,$core 

badrts 

r1 ,$e.core 

badrts 

$1,r1 

badrts 

(rD 

badrts 

$1f,r0 

r0,4(sp) 

(sp)+,r1 

(sp)+,r0 



rO 
r1 
r2 
r3 
r4 
r5 
sp 
pc 



(sp)+,r1 
(sp)+,rO 



rpsym: 
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Jmp unkni 
.if cold 



idata: 
/ root 



41. 

140016 
•byte 7 , 1 
9f-.-2 
41. 

<..\0\0\0\0\0\0> 
41. 

<.\0\0\0\0\0\0\0> 
42. 

<dev\0\0\0\0\0> 
43. 

<bin\0\0\0\0\0> 
44. 

<etc\0\0\0\0\0> 
45. 

<usr\0\0\0\0\0> 
46. 

<tmp\0\0\0\0\0> 
9: 

/ device directory 

42. 

140016 

.byte 2,1 

9f-.-2 

41. 

<..\0\0\0\0\0\0> 

42. 

<.\0\0\0\0\0\0\0> 

01. 

<tty\0\0\0\0\0> 

02. 

<ppt\0\0\0\0\0> 

03. 

<mem\0\0\0\0\0> 

04. 

<rf0\0\0\0\0\0> 

05. 

<rk0\0\0\0\0\0> 

06. 

<tap0\0\0\0\0> 

07. 

<tapl\0\0\0\0> 

08. 

<tap2\0\0\0\0> 

09. 

<tap3\0\0\0\0> 
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10. 
<tap4\0\0\0\0> 

11. 

<tap5\0\0\0\0> 

12. 

<tap6\0\0\0\0> 

13. 

<tap7\0\0\0\0> 

14. 

<ttyO\0\0\0\0> 

15. 

<ttyl\O\O\0\0> 

16. 

<tty2\0\0\0\0> 

17. 

<tty3\0\0\0\0> 

18. 

<tty4\0\0\0\0> 

19. 

<tty5\0\0\0\0> 

20. 

<tty6\0\0\0\0> 

21. 

<tty7\0\0\0\0> 

22 

<lpr\o\0\o\0\0> 
01. 

<tty8\0\0\0\0> / really tty 
9j 

/ binary directory 

43. 

140016 
•byte 2,3 
9f-.-2 
41. 

<..\0\0\0\0\0\0> 
43. 

<.\0\0\0\0\0\0\0> 
9: 

/ etcetra directory 

44. 

140016 
.byte 2,3 
9f-.-2 
41. 

<..\0\0\0\0\0\0> 
44. 

<.\0\0\0\0\0\0\0> 
47. 

<init\0\0\0\0> 
9t 
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/ user directory 



45. 

140016 

.byte 2,1 

9f-.~2 

41. 

<..\0\0\0\0\0\0> 

45. 

<.\0\0\0\0\0\0\0> 



9: 



/ temporary directory 

46. 

140017 
.byte 2,1 
9f-.-2 
41. 

<..\0\0\0\0\0\0> 
46. 

<.\0\0\0\0\0\0\0> 
9: 

/ initialization program 



8: 



1: 



2: 



47. 




100036 


i 


•byte ' 


1,3 


9f-.-2 




sys 


break; 


sys 


open; 6f-8b+core; 


mov 


r0,r1 


sys 


seek; 65 «; 


mov 


r1 ,r0 


sys 


read; 9f-8b+core; 512. 


mov 


9f,r5 / size 


beq 


1f 


sys 


creat; 9f-8b+core+4; 


mov 


r0,r2 


movb 


9f+2,0f 


sys 


chmod ; 9f-8b+core+4 ; : . . 


movb 


9f+3,0f 


sys 


chown; 9f-8b+core+4; 0:.. 


tst 


r5 


beq 


2f 


mov 


rl ,r0 


sys 


read; 9f-8b+core; 512. 


mov 


$512., Of 


cmp 


r5,$512. 


bhi 


3f 


mov 


r5,0f 


Date 
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2: 



18 



4: 

5: 
6: 

9: 
/ end 



mov r2,r0 

sys write; 9f-8b+core; 0:.. 

sub r0,r5 

br 2b 

mov r2 ,r0 

sys close 

br 1b 

mov r1 ,r0 

sys close 

sys exec; 5f-8b+core; 4f-8b+core 

sys exit 



,CK 



«*> 



5f-8b+core; 



eTc 



</eet/£ 



nitV>> 



fa^fi 






</dev/tap0\0> 
•even 

of initialization data 

•endif 



rftfalfo*^^* 



ft 
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/ u1 — - unix 

unkni: / used for all system calls 
sysent: 

incb sysflg / indicate a system routine is 

beq 1f / in progress 

jmp panic / called if trap inside system 



1: 



mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 

mov 

mov 

mov 

mov 

mov 

sub 

asl 

cmp 

bhis 

bic 

jmp 



$s ,syst+2 ,clockp 

rO t -(sp) / save user registers 

sp,u.rO / pointer to bottom of users stack in u.rO 

r1 ,-(sp) 

r2,-(sp) 

r3,-(sp) 

r4,-(sp) 

r5,-(sp) 

ac,-(sp) / 

mq f -(sp) / 

sc,-(sp) / 



accumulator register for extended 
arithmetic unit 

"multiplier quotient" register for the 
extended arithmetic unit 
"step count" register for the extended 
arithmetic unit 



sp.u.sp / u.sp points to top of users stack 

18.(sp),r0 / store pc in rO 

-(rO),rO / sys inst in rO 10400xxx 

$sys,rO / get xxx code 

rO / multiply by 2 to jump indirect in bytes 

rO t $2f-1f / limit of table (35) exceeded 

badsys / yes, bad system call 

$341,20.(sp) / set users processor priority to and clear 

/ carry bit 
*1f(rO) / jump indirect thru table of addresses 
/ to proper system routine* 



sysrele / 
sysexit / 1 
sys^ork / 2 
sysread / 3 
syswrite / 4 
sysopen / 5 
sysclose / 6 
sys wait / 7 
syscreat / 8 
sys link / 9 
sysunlink / 10 
sysexec / 11 
syschdir / 12 
systime / 13 
sysmkdir / 14 
syschmod / 15 
syschown / 16 
sysbreak / 17 
sysstat / 18 
sysseek / 19 
systell / 20 
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2: 



Bysmount / 21 
sysumount / 22 
syssetuid / 23 
sysgetuid / 24 
sysstime / 25 
sysquit / 26 
sysintr / 27 
sysfstat / 28 
sysemt / 29 
sysmdate / 30 
sysstty / 31 
sysgtty / 32 
sysilgins / 33 



error: 



mov 

bis 



u.sp,r1 

$1,20.(r1) / set c bit in processor status word below 
/ users stack 



sysret: 



tstb u.bsys / is a process about to be terminated because 

bne sysexit / of an error? yes, go to sysexit 

mov u.sp,sp / no point stack to users stack 

clr r1 / zero r1 to check last mentioned i-node 

jsr r0,iget / if last mentioned i-node has been modified 

/ it is written out 

tstb smod / has the super block been modified 

beq 1f / no, 1f 

clrb smod / yes, clear smod 

bis $1000,sb0 / set write bit in I/O queue for super block 

/ output 

jsr r0,ppoke / write out modified super block to disk 

tstb mmod /has the super block for the dismountable file 

/ system 

beq 1f / been modified? no, 1f 

clrb mmod / yes, clear mmod 

movb mntd,sb1 /set the I/O queue 

bis $1000,sb1 / set write bit in I/O queue for detached sb 

jsr r0,ppoke / write it out to its device 

tstb uquant /is the time quantum 0? 

bne 1f / no, don't swap it out 



sysrele: 
1: 



jsr r0,tswap / yes, swap it out 



mov (sp)+,sc / restore user registers 

mov (sp)+,mq 

mov (sp)+,ac 

mov (sp)+,r5 

mov (sp)+,r4 

mov (sp)+,r3 

mov (sp)+,r2 

mov (sp)+,r1 



Issue D Date 3/17/72 



ID IMO.1-1- 



Section E.1 Page 2 



UNIX IMPLEMENTATION 



badsys t 



2: 



3: 



mov (sp)+,rO 

mov $s.chrgt+2,clockp 

decb sysf lg / turn system flag off 

jsr rO,isintr / is there an interrupt from the user 

br intra ct / yes, output gets flushed, take interrupt 
/ action 
rti / no return from interrupt 

incb u.bsys / turn on the user's bad^system flag 

mov $3f,u.namep / point u.namep to core\0\0 

Jsr rO,namei / get the i-number for the core image file 

br If / error 
neg r1 / negate the i-number to open the core image file 

/ for. writing 
jsr rO,iopen / open the core image file 
jsr rO,itrunc / free all associated blocks 
br 2f 

mov $17,r1 / put i-node mode (17) in r1 

jsr rO,maknod / make an i— node 

mov u.dirbuf ,r1 / put i-node s number in r1 

mov $core,u.base / move address core to u.base 

mov $ecore-core,u .count / put the byte count in u.count 

mov $u.off ,u.fofp / more user offset to u.fofp 

clr u.off / clear user offset 

jsr rO,writei / write out the core image to the user 

mov $user,u.base / pt. u.base to user 

mov $64., u.count / u.count = 64 

jsr rO,writei / write out all the user parameters 

neg r1 / make i-number positive 

jsr rO,iclose / close the core image file 

br sysexit / 

<core\0\0> 



sysexit: / terminate process 

clr u.intr / clear interrupt control word 

clr r1 / clear r1 

has file descriptor (index to u.fp list) Search the whole 



/ r1 



list 



jsr 



rO,f close / close all files the process opened 

br .+2 / ignore error return 

rl / increment file descriptor 

r1 ,$10. / end of u.fp list? 

1b / no, go back 

u.uno,r1 / yes, move dying process's number to r1 
p.stat-l(rl) / free the process 

r1 / use r1 for index into the below tables 

p.pid-2(r1 ).r3 / move dying process's name to r3 

p.ppid-2(r1 ),^4 / move its parents name to r4 

r2 

r5 / initialize reg 
1: / find children of this dying process, if they are zombies, free them 

add $2,r2 / search parent process table for dying process's name 
cmp p.ppld-2(r2),r3 / found it? 



inc 

cmp 

bit 

movb 

clrb 

asl 

mov 

mov 

clr 

clr 
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3: 



bne 3f / no 

asr r2 / yes, it is a parent 

cmpb p.stat-1 (r2), $3 / ie the child of this dying process a 

/ zombie 

bne 2f / no 

clrb p.stat-1 (r2) / yes, free the child process 

asl r2 , 

/ search the process name table for the dying process s parent 
cmp p.pid-2(r2),r4 / found it? 
bne 3f / no 

mov r2,r5 / yes, put index to p.pid table (parents 
/ process # x2) in r5 



3: 



2: 



crop 
bit 
mov 
beq 
asr 
movb 
beg 
cmp 
beq 
movb 
movb 
cmp 
bne 
decb 
mov 
jsr 
/ the proce 
clrb 
jsr 




r2,$nproc+nproc /has whole table been searched? 
1b / no, go back 

r5,r1 / yes, r1 now has parents process # x2 
2f / no parent has been found. The process just dies 
r1 / set up index to p.stat 

p.stat-1 (r1 ),r2 / move status of parent to r2 
2f / if its been freed, 2f 
r2,$3 / is parent a zombie? 
2f / yes, 2f 

u.uno,r3 / move dying process's number to r3 
$3, p.stat-1 (r3) / make the process a zombie 
r2,$2 / is the parent waiting for this child to die 
2f / yes. notify parent not to wait any more 
p.stat-1 (r1) / awaken it by putting it (parent) 
$runq+4,r2 / on the runq 
rO, putlu 
ss dies n n 

u.uno / put zero as the process number, so swap will 
rO.swap / overwrite process with another process 
/ and thereby kill it; halt? 



intra ct : / interrupt action 

cmp *(sp),$rti / are you in a clock interrupt? 

bne 1f / no, 1f 

cmp (sp)+,(sp)+ / pop clock pointer 
1 : / now in user area 

mov r1,-(sp) / save r1 

mov u.ttyp,r1 / pointer to tty buffer in control^to p 

cmpb 6(r1 ),$177 / is the interrupt char equal to del 

beq 1f / yes, 1f 

clrb 6(r1 ) / no, clear the byte (must be a quit character) 

mov (sp)+,r1 / restore r1 

clr u.quit / clear quit flag 

bis $20,2(sp) / set trace for quit (sets t bit of ps-trace trap) 

rti / return from interrupt 

1 : / interrupt char = del 

clrb 6(rl) / clear the interrupt byte in the buffer 

mov (sp)+,r1 / restore r1 

cmp u.intr, Score / should control be transferred to loc core? 

bio 1f 

jmp *u.intr / user to do rti yes, transfer to loc core 

1: 
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Sys 



1 / exit 



syswait: / wait for a process to die 

movb u.uno,r1 / put parents process number in r1 

asl r1 / x2 to get index into p.pid table 

mov p.pid-2(r1 ) f r1 / get the name of this process 

clr r2 

clr r3 / initialize reg 3 



1: 



2: 



errorl : 
sysretl : 



add $2,r2 / use r2 for index into p.ppid table / search table 

/ of parent processes for this process name 

cmp p.ppid-2(r2),r1 / r2 will contain the childs process number 

bne 3f / branch if no match of parent process name 

inc r3 / yes, a match, r3 indicates number of children 

asr r2 / r2/2 to get index to p.stat table 

cmpb p.stat-1 (r2),$3 / is the child process a zombie? 

bne 2f / no, skip it 

clrb p.stat-1 (r2) / yes, free it 

asl r2 / r2x2 to get index into p.pid table 

mov p.pid-2(r2),*u.r0 / put childs process name in (u.rO) 

br sysretl / return cause child is dead 

asl r2 / r2x2 to get index into p.ppid table 

cmp r2,$nproc+nproc / have all processes been checked? 

bit 1b / no, continue search 

tst r3 / one gets here if there are no children or children 

/ that are still active 

beq errorl / there are no children, error 

movb u.uno,r1 / there are children so put parent process number 

/ in r1 

incb p.stat-1 (rl) / it is waiting for other children to die 

jsr rO,swap /swap it out, because it's waiting 

br syswaft / wait on next process 

jmp error / see 'error' routine 

jmp sysret / see 'sysret* routine 



sysfork: / create a new process 

clr r1 
1: / search p.stat table for unused process number 

inc r1 

tstb p.stat-1 (r1 ) /is process active, unused, dead 

beq 1f / it's unused so branch 

cmp r1,$nproc / all processes checked 

bit 1b / no, branch back 

add $2,1 8. (sp) / add 2 to pc when trap occured, points 

/ to old process return 

br errorl / no room for Ct- new process 

1i 

movb u.uno,-(sp) / save parent process number 
movb r1 »u.uno / set child process number to r1 
incb p.stat-l(rl) / set p.stat entry for child process to 

/ active status 
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2: 



clr 
1 : / search u 
movb 
beq 
asl 
a si 
asl 
lncb 

2: 



mov u.ttyp,r2 / put pointer to parent process' control tty 

/ buffer in r2 
beq 2f / branch, if no such tty assigned 
clrb 6(r2) / clear interrupt character in tty buffer 

mov $runq+4,r2 

jsr rO.putlu / put child process on lowest priority run queue 

asl r1 / multiply r1 by 2 to get index into p.pid table 

inc mpid / increment m.pid; get a new process name 

mov mpid,p.pid-2(r1 ) / put new process name in child process' 

/ name slot 
movb (sp),r2 / put parent process number in r2 
asl r2 / multiply by 2 to get index into below tables 
mov p.pid-2(r2) ,r2 / get process name of parent process 
mov r2,p,^pid-2(r1 ) / put parent process name in parent 

/ process slot for child 
mov r2,*u.r0 / put parent process name on stack at location 

/ where rO was saved 
mov $sysret1 r( s P) / 
mov sp,u»usp / contents of sp at the time when user is 

/ swapped out 
mov $sstack,sp / point sp to swapping stack space 
jsr rO,wswap / put child process out on drum 
jsr rO, unpack / unpack user stack 
mov u,usp,sp / restore user stack pointer 
tst (sp)+ / bump stack pointer 

movb (sp)+,u,uno / put parent process number in u.uno 
mov mpid,*u.rO / put child process name on stack where rO 

/ was saved 
add $2,18.(sp) / add 2 to pc on stack; gives parent 

/ process return 
r1 
•fp list to find the files opened by the parent process 
u«fp(r1),r2 / get an open file for this process 
2f / file has not been opened by parent, so branch 
r2 / multiply by 8 
r2 / to get index into fsp table 
r2 

fsp-2(r2) / increment number of processes using file, 
/ because child will now be using this file 

inc rl / get next open file 

cmp r1 , $10. / 10* files is the maximum number which can be 

/ opened 
bit 1b / check next entry 
br sysretl 



sysread: 



jsr r0,rw1 / get i-number of file to be read into r1 

tst r1 / negative i-number? 

ble errorl / yes, error 1 to read it should be positive 

jsr r0,readi / read data into core 

br 1fi 



syswri te ; 

Jsr r0,rw1 / get i-number in rl of file to write 
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1: 



rwl : 



tst r1 / positive i-number ? 

bge errorl / yes, error 1 negative i-number means write 

neg r1 / make it positive 

jsr rO,writei / write data 

mov u. tread, *u.rO / put no. of bytes transferred into (u.rO) 

br sysretl 

jsr rO,arg; u.base / get buffer pointer 

jsr rO,arg; u. count / get no. of characters 

mov *u.r0,r1 / put file descriptor (index to u.fp table) in r1 

jsr rO,getf / get i -number of the file in r1 

rts rO 



sysopen: 



1: 



opO: 
op1 : 

1: / 



jsr 

jsr 

br 

tst 

beg 

neg 

jsr 
tst 
beq 



neg 

clr 
clr 
scan the 
tstb 
beq 
inc 
cmp 
bit 
br 



1: 



r0*arg2 / get sys args into u.namep and on stack 

rO,namei / i-number of file in r1 

error2 / file not found 

(sp) / is mode = (2nd arg of call; means, open for read) 

1f / yes, leave i-number positive 

r1 / open for writing so make i-number negative 

rO,iopen / open file whose i-number is in r1 
(sp)+ / pop the stack and test the mode 
op1 /is open for read op1 

rl / make i-number positive if open for writing 

r2 / clear registers 
r3 
list of entries in fsp table 
u.fp(r2) /test the entry in the u.fp list 
1f / if byte in list is branch 
r2 / bump r2 so next byte can be checked 
r2,$10. / reached end of list? 
lb / no, go back 
error2 / yes* error (no files open) 



1: / 



tst fsp(r3) / scan fsp entries 

beq 1f / if branch 

add $8.,r3 / add 8 to r3 to bump it to next entry mfsp table 

cmp r3,$[nfiles*8.] / done scanning 

bit 1b / no, back 

br error2 / yes, error 
r2 has index to u.fp list; r3, has index to fsp table 

mov r1,fsp(r3) / put i-number of open file into next available 

mov cdev,fsp+2(r3) / entry in fsp table, put # of device in 

/ next word 

clr fsp+4(r3) 

clr fsp+6(r3) / clear the next two words 

asr r3 

asr r3 / divide by 8 to get number of the fsp entry-1 

asr r3 

inc r3 / add 1 to get fsp entry number 
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ir.ovb r3,u,fp(r2) / move entry number Into next available slot 

/ in u.fp list 
mov r2,*u.r0 / move index to u.fp list into rO loc on stack 
br sysret2 



error2 : 
sysret2: 



jmp error /see 'error' routine 
jmp sysret / see 'sysret' routine 



syscreat: / name; mode 

jsr r0,arg2 / put file name in u.namep put mode on stack 

jsr r0,namei / get the i-number 

br 2f / if file doesn't exist 2f 

neg r1 / if file already exists make i-number negative 
/ (open for writing) 

jsr rO,iopen / 

jsr rO,itrunc / truncate to length 

br opO 
2: / file doesn't exist 

mov (sp)+,r1 / put the mode in r1 

bic $!377,r1 / clear upper byte 

jsr rO,maknod / make an i-node for this file 

mov u.dirbuf ,r1 / put i-number for this new file in r1 

br opO / open the file 

sysmkdir: / make a directory 

jsr r0,arg2 / point u.namep to the file name 
jsr rO,namei / get the i-number 

br »+4 / if file not found branch around error 
br error2 / directory already exists (error) 
tstb u.uid / is user the super user 
bne error2 /no, not allowed 
mov (sp)+,r1 / put the mode in r1 
bic $!317,r1 / all but su and ex 
bis $40000, r1 / directory flag 

jsr r0,maknod / make the i-node for the directory 
br sysret2 / 

sysclose: / close the file 

mov *u»r0,r1 / move index to u.fp list into r1 
jsr r0,f close / close the file 

br error2 / unknown file descriptor 
br sysret2 

jsr r0,arg; 30 / put the argument of the sysemt call in loc 30 
cmp 30,$core / was the argument a lower address than core 
bio 1f / yes, rtssym m m 

cmp 30,$ecore / no, was it higher than core and less than 

/ ecore" 
bio 2f / yes, sysret2 

mov $rtssym,30 

br sysret2 



sysemt: 



1: 
2: 
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sysilgins: / calculate proper illegal instruction trap address 

jsr rO,argj 10 / take address from sysilgins call , put 

/ it in loc 8., 
cmp 10,$core /making it the illegal instruction trap address 
bio 1f / is the address a user core address? yes, go to 2f 
cmp 10,$ecore 
bio 2f 

^ • 

mov $fpsym,10 / no, make 'fpsum* the illegal instruction trap 

/ address for the system 

br sysret2 / return to the caller via sysret 

sysmdate: / change the modification time of a file 

jsr r0,arg; u.namep / point u.namep to the file name 
jsr r0,namei / get its i-number 

br error2 / no, such file 
jsr r0,iget / get i-node into core 
cmpb u#uid,i.uid / is user same as owner 
beq 1f / yes 

tstb u.uid / no, is user the super user 
bne error2 / no, error 

1: 

jsr r0,setimod / fill in modification data, time etc» 

mov 4(sp),i«mtim / move present time to 

mov 2(sp),i«mtim+2 / modification time 

br sysret2 

sysstty: / set mode of typewriter; 3 consequtive word arguments 

jsr r0,gtty / r1 will have offset to tty block, r2 has source 

mov r2,-(sp) 

mov r1 ,-(sp) / put r1 and r2 on the stack 

1: / flush the clist wait till typewriter is quiescent 

mov (sp),r1 / restore r1 to tty block offset 

movb tty+3(r1),0f / put cc offset into getc argument 

mov $240,*$ps / set processor priority to 5 

jsr r0,getc; ():••/ put character from clist in r1 
br .+4 / list empty, skip branch 

br 1b / get another character until list is empty 

mov 0b,r1 / move cc offset to r1 

inc r1 / bump it for output clist 

tstb cc(r1 ) / is it 

beq 1f / yes, no characters to output 

mov r1 ,0f / no, put offset in sleep arg 

jsr rO, sleep; 0:.. / put tty output process to sleep 

br lb / try to calm it down again 
1: 

mov (sp)+,r1 

mov (sp)+,r2 / restore registers 

mov (r2)+,r3 / put reader control status in r3 

beq Iff / if 0, 1f 

mov r3,rcsr(r1) / move r»c. status to reader control status 

/ register 
1: 

mov (r2)+,r3 / move pointer control status to r3 
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beq If / if 1f 

mov r3,tcsr(rl) / move p»c» status to printer control status reg 

mov (r2)+,tty+4(r1 ) / move to flag byte of tty block 

jmp sysret2 / return to user 



sysgtty: / get status of typewriter; 3 consequtive word arguments 
jsr rO,gtty / r1 will have offset to tty block, r2 has 

/ destination 
mov rcsr(r1 ), (r2)+ / put reader control status in 1st word 

/ of dest 
mov tcsr(r1 ), (r2)+ / put printer control status in 2nd word 

/ of dest 
mov tty+4(r1 ), (r2)+ / put mode in 3rd word 
jmp sysret2 / return to user 



gtty: 



1: 



Jsr 
mov 
jsr 
tst 
bgt 
neg 

sub 
cmp 
bhis 
a si 
a si 
a si 
mov 
rts 



rO,arg; u.off / put first arg in u.off 

*u.r0,r1 / put file descriptor in r1 

rO,getf / get the i-number of the file 

r1 / is it open for reading 

1f / yes 

r1 / no, i -number is negative, so make it positive 

$14.,r1 / get i-number of ttyO 
r1,$ntty-1 /is there such a typewriter 
error9 / no, error 



r1 / 0SB2 
ri / 0%4 
r1 / 0%8 



/ yes 

/ multiply by 8 so r1 points to tty block 
u.off ,r2 / put argument in r2 
rO / return 
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/ u2 — unix 

syslink: / namel , name2 



sysret9: 
error 9: 



jsr rO t arg2 / u.namep has 1st arg u.off has 2nd 

Jsr rO,namei / find the i-number associated with the 1st 

/ path name 
br error9 / cannot be found 
jsr rO,iget / get the i-node into core 
mov (sp)+, u.namep / u.namep points to 2nd name 
mov r1,-(sp) / put i-number of namel on the stack (a link 

/ to this file is to be created) 
mov cdev,-(sp) / put i -nodes device on the stack 
jsr rO t isdir / is it a directory 
jsr rO,namei / no, get i-number of name2 

br .+4 / not found so r1 -i-number of current directory 

/ ii = i-number of current directory 

br error9 / file already exists., error 
cmp (sp)+,cdev / u.dirp now points to end of current dir 
bne error9 

mov (sp), u.dirbuf / i-number of namel into u.dirbuf 
jsr rO,mkdir / make directory entry for name2 in current 

/ directory 
mov (sp)+,r1 / r1 has i-number of namel 
jsr rO,iget / get i-node into core 
incb i.nlks / add 1 to its number of links 
jsr rn,setimod / set the i-node modified flag 

jmp sysret / see 'sysret' routine 
jmp error / see 'error' routine 



isdir: / if the i-node whose i-number is in r1 is a directory there is an 
/ error unless super user made the call 
tstb u.uid / super user 
beg 1f / yes, don't care 

mov ii,-(sp) / put current i-number on stack 
jsr rO,iget / get i-node into core (i-number in r1 ) 
bit $40000, i. figs / is it a directory 
bne error 9 / yes, error 

mov (sp)+,r1 / no, put current i-number in r1 (ii) 
jsr r0,iget / get it back in 



rts 



rO 



sysunlink: / name - remove link name 

jsr r0,arg; u.namep / u.namep points to name 

Jsr r0,namei / find the i-number associated with the path name 

br error 9 / not found 
mov r1,-(sp) / put its i-number on the stack 
jsr rO, isdir / is it a directory 
clr u.dirbuf / no, clear the location that will get written 

/ into the i-number portion of the entry 
sub $10., u.off / move u.off back 1 directory entry 
jsr r0,wdir / free the directory entry 
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mov (sp)+,r1 / get i-number back 

;sr rO,iget / get i-node 

jsr rO,setimod / set modified flag 

decb i.nlks / decrement the number of links 

bgt sysret9 / if this was not the last link to file return 

jsr rO.anyi / if it was, see if anyone has it open. Then 

/ free contents of file and destroy it. 

br sysret9 

mkdir: , , _ , 

jsr rO,copyz; u.dirbuf+2; u.dirbuf+10. / clear this 

mov u.namep,r2 / r2 points to name of directory entry 

mov $u.dirbuf+2,r3 / r3 points to u.dirbuf+2 
1s / put characters in the directory name in u.dirbuf+2 - u.dirbuf+10 

movb (r2)+,r1 / move character in name to r1 

beq 1f / if null, done m 

cmp r1,$V / is it a / ? 

beq error 9 / yes, error 

cmp r3,$u.dirbuf+10. / have we reached the last slot for 

/a char? 

beq 1b / yes, go back 

movb r1,(r3)+ / no, put the char in the u.dirbuf 

br 1b / get next char 



1 



mov u.dirp,u.off / pointer to empty current directory slot to 

/ u.off 



wdirs 



mov $u.dirbuf ,u.base / u.base points to created file name 

mov $10., u. count / u. count = 10 

mo- ii,r1 / r1 has i-number of current directory 

jsr rO, access; 1 / get i-node and set its file up for writing 

jsr r0,writei / write into directory 

rts rO 



sysexec: 



1: 



jsr r0,arg2 / argO in u.namep,arg1 on top of stack 
jsr r0,namei / namei returns i-number of file named in 

/ sysexec call in r1 

br error9 
jsr r0,iget / get i-node for file to be executed 
bit $20, i. figs / is file executable 
beq error9 
jsr r0,iopen / gets i-node for file .with i-number given in 

/ r1 (opens file) 
bit §40, i .figs / test user id on execution bit 
beq 1 f 

tstb u.uid / test user id 
beq 1f, / super user 

movb i.uid, u.uid /put user id of owner of file as process 

/ user id 

mov (sp)+,r5 / r5 now contains address of list of pointers to 

/ arguments to be passed 
mov $l,u.quit / u.quit determines handling of quits; 

/ u.quit = 1 take quit 
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1: 



1: 

2: 

2: 



1: 



1: 



mov $1, u.intr / u.intr determines handling of interrupts; 

/ u.intr = 1 take interrupt 
mov $rtssym,*30 / emt trap vector set to take system routine 
mov $fpsym,*10 / reserved instruction trap vector set to take 

/ system routine 
mov $sstack,sp / stack space used during swapping 
mov r5,-(sp) / save arguments pointer on stack 
mov $ecore,r5 / r5 has end of core 
mov $cor«,r4 / r4 has start of users core 
mov r4,u.base / u.base has start of users core 
mov (sp),r2 / move arguments list pointer into r2 

tst (r2)+ / argument char * "nul" 
bne 1b 

tst -(r2) / decrement r2 by 2; r2 has addr of end of argument 
/ pointer list 
/ move arguments to bottom of users core 

mov -(r2),r3 / (r3) last non zero argument ptr 

cmp r2,(sp) / is r2 = beginning of argument ptr list 

bio 1f / branch to 1f when all arguments are moved 

tstb (r3)+ 

bne 2b / scan argument for \0 (nul) 

movb -Cr3),-(r5) / move argument char by char starting at 

/ "ecore 
cmp r3,(r2) / moved all characters in this argument 
bhi 2b / branch 2b if not 
mov r5,(r4)+ / move r5 into top of users core; r5 has 

/ pointer to nth arg 
br 1b / string 

clrb -(r5) 

blc $1,r5 / make r5 even, r5 points to last word of argument 

/ strings 
mov Score, r 2 
/ move argument pointers into core following argument strings 
cmp r2,r4 
bhis 1f / branch to If when all pointers are moved 

mov (r2H-(r5) 
br 1b 

sub Score ,r4 / gives number of arguments *2 

asr r4 / divide r4 by 2 to calculate the number of args stored 

mov r4,-(r5) / save number of arguments ahead of the argument 

/ pointers 
clr -(r5) / popped into ps when rti in sysrele is executed 
mov Score, -(r5) / popped into pc when rti in sysrele 

/is executed 
mov r5,0f / load second copyz argument 
tst -(r5) / decrement r5 
mov r5,u.r0 / 
sub $16., r5 / skip 8 words 
mov r5,u.sp / assign user stack pointer value, effectively 

/ zeroes all regs when sysrele is executed 
jsr rO, copyz; core; 0:0 / zero user's core 
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clr u. break 

mov r5,sp / point sp to user's stack 

mov $1 4, u. count 

mov $u.off , u.fofp 

clr u.off / set offset in file to be read to zero 

jsr r0,readi / read in first six words of user's file, starting 

/at Score 
mov sp,r5 / put users stack address in r5 
sub $core+40.,r5 / subtract $core +40, from r5 (leaves 

/ number of words less 26 available for 
/ program in user core 
mov r 5, u. count / 
cmp core, $405 / br . + 14 is first instruction if file is 

/ standard a. out format 
bne 1f / branch, if not standard format 
mov core+2,r5 / put 2nd word of users program in r5; number of 

/ bytes in program text 
sub $14, r5 / subtract 12 
cmp r 5, u. count / 

bgt 1f / branch if r5 greater than u. count 
mov r 5, u, count 

jsr r0,readi / read in rest of user's program text 
add core+10,u.nread / add size of user data area to u.nread 
br 2f 

Jsr r0,readi / read in rest of file 

mov u.nread, u. break / set users program break to end of 

/ user code 
add $core+14,u.break / plus data area 
jsr r0,iclose / does nothing 
br sysret3 / return to core image at $core 



sysfstat: / 
jsr 
mov 
mov 
jsr 
tst 
beq 
bgt 
neg 
br 



set status of open file 

r0,arg; u.off / put buffer address in u.off 

u.off ,-(sp) / put buffer address on the stack 

*u.r0,r1 / put file descriptor in r1 

r0,getf / get the files i-number 

r1 / is it 0? 

error 3 / yes, error 

1f / if i-number is negative (open for writing) 

r1 / make it positive, then branch 

1f / to 1f 



sysstat: / ; 
jsr 
jsr 



name of file; buffer - get files status 
r0,arg2 / get the 2 arguments 
r0,namei / get the i-number for the file 
br error3 / no such file, error 



jsr r0,iget /get the i-node into core 

mov (sp)+,r3 / move u.off to r3 (points to buffer) 

mov r1,(r3)+ / put i-number in 1st word of buffer 

mov $inode,r2 / r2 points to i-node 

mov (r2)+,(r3)+ / move rest of i-node to buffer 

cmp r2,$inode+32 / done? 



Issue D Date 3/17/72 



ID IMO.1-1 



Section E.2 Page 4 



UNIX IMPLEMENTATION 



bne 1b / no, go back 

br sysret3 / return through sysret 



error 3: 
sysr et3 : 



jmp error / see 'error' routine 
jmp sysret / see 'sysret* routine 



namei: 



getf : / get the device number and the i-number of an open file 

cmp r1,$10. / user limited to 10 open files 

bhis errors / u.fp is table of users open files, index in 
/ fsp table 

movb u.fp(rl),r1 / r1 contains number of entry in fsp table 

beq 1f / if its zero return 

asl r1 

asl r1 / multiply by 8 to get index into fsp table entry 

asl r1 

add $fsp-4,r1 / r1 is pointing at the 3rd word in the fsp entry 

mov r1,u.fofp / save address of 3rd word in fsp entry in u.fofp 

mov -(rl),cdev / remove the device numbe-* cdev 

mov -(rl),r1 / and the i -number r1 
1: 

rts rO 

mov u.cdir,r1 / put the i-number of current directory in r1 

mov u. cdev, cdev / device number for users directory into cdev 

cmpb *u.namep,$*/ / is first char in file name a / 

bne 1f 

inc u.namep / go to next char 

mov rootdir,r1 / put i-number of rootdirectory in r1 

clr cdev / clear device number 

tstb *u.namep / is the character in file name a nul m m 

beq nig / yes, end of file name reached; branch to nig 

jsr rO, access; 2 / get i— node with i-number r1 

bit $40000, i. figs / directory i-node? 

beq error3 /no, got an error 

mov i. size, u.dirp / put size of directory in u.dirp 

clr u.off / u.off is file offset used by user 

mov $u. off , u.fofp / u.fofp is a pointer to the offset portion 

/ of fsp entry 

mov su.dirbuf ,u.base / u.dirbuf holds a file name copied from 

/ a directory 

mov $10., u. count / u. count is byte count for reads and writes 

jsr r0,readi / read 10. bytes of file with i-number (n); 

/ i.e. read a directory entry 

tst u.nread 

ble nib / gives error return 

tst u.dirbuf / 

bne 3f / branch when active directory entry (i-node word in 

/ entry non zero) 

mov u.off, u.dirp 

sub $10., u.dirp 



1: 
Vi 



2: 
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3: 
3: 



3: 



3: 



br 2b 

mov u.namep, r2 / u.namep points into a file name string 

mov $u.dirbuf+2,r3 / points to file name of directory entry 

movb (r2)+,r4 / move a character from u.namep string into r4 

beq 3f / if char is nul, then the last char in string has been 

/ moved 

cmp r4,$V / is char a </> 

beq 3f 

cmp r3,$u.dirbuf+10. / have I checked all 8 bytes of file name 

beq 3b 

cmpb (r3)+,r4 / compare char in u.namep string to f i. ■% name 

/ char read from 

beq 3b / directory; branch if chars match 

br 2b / file names do not match go to next directory entry 

cmp r3,$u.dirbuf+10. / if equal all 8 bytes were matched 

beq 3f 

tstb (r3) + / 

bne 2b 

mov r2, u.namep / u.namep points to char following a / or nul 

mov u.dirbuf ,r1 / move i-node number in directory entry to r1 

tst r4 / if r4 = the end of file name reached, if r4 = </> 

/ then go to next directory 

bne 1b 



nig: 
nib: 



tst (r0)+ / gives non-error return 
rts rO 



syschdir: / makes the directory specified in the argument the current 
/ directory 
jsr r0,arg; u.na iep / u.namep points to path name 
Jsr r0,namei / find its i-number 

br error3 
jsr rO, access; 2 / get i-node into core 
bit $40000, i. figs / is it a directory? 
beq error3 / no error 

mov r1,u.cdir / move i-number to users current directory 
mov cdev,u.cdev / move its device to users current device 
br sysret3 



isown; 



1 



jsr r0,arg2 / u.namep points to file name 

jsr r0,namei / get its i-number 

br error3 

jsr r0,iget / get i-node into core 

tstb u.uid / super user? 

beq 1f / yes, branch 

cmpb i.uid, u.uid /no, is this the owner of the file 

beq If / yes 

jmp err or 3 / no, error 
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Jsr rO,setimod / indicates i-node has "been modified 

mov (sp) ?-,r2 / mode is put in r2 (u.off put on stack with 

/ 2nd arg) 
rts rO 

syschmod: / name; mode 

jsr rO,isown / get the i-node and check user status 
bit $40000 f i. figs / directory? 
beq 2f / no 

bic $60, r2 / su & ex / yes, clear set user id and 

/ executable modes 



2: 



movb r2,i.flgs / move remaining mode to i.flgs 
br If 



syschown: / name; owner 

jsr r0,isown / get the i-node and check user status 

tstb u.uid / super user 

beq 2f / yes, 2f 

bit $40, i.flgs / no, set user id on execution? 

bne 3f / yes error, could create Trojan Horses 



2: 
1t 
3: 

arg j 



movb r2,i.uid / no, put the new owners id in the i-node 
Jmp sysret4 
Jmp error 



arg 2: 



mov u.sp,r1 

mov *18.(rl),*(r0)+ / put argument of system call into 

/ argument of arg2 &r r*>i 
add $2,18.(rl) / point pc on stack to next system argument 
rts rO 

jsr r0,arg; u.namep / u.namep contains value of first arg in 

/ sys call 
jsr r0,arg; u.off / u.off contains value of second arg in 

/ sys call 
mov r0,r1 / rO points to calling routine 
mov (sp),r0 / put operation code back in rO 
mov u.off, (sp) / put pointer to second argument on stack 
jmp (r1 ) / return to calling routine 

systime: / get time of year 
mov s.time,4(sp) 

mov s.time+2,2(sp) / put the present time on the stack 
br sysret4 

sysstime: / set time 

tstb u.uid / is user the super user 

bne error4 / no, error 

mov 4(sp),s.time 

mov 2(sp) ,s.time+2 / set the system time 

br sysret4 
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sysbreak: / set the program break 

mov u. break, r1 / move users break point to r1 

cmp r1 , Score / is it the same or lower than core? 

bios 1f / yes, 1f 

cmp r1,sp / is it the same or higher than the stack? 

bhis 1f / yes, 1f 

bit $1 ,r1 / is it an odd address 

beq 2f / no, its even 

clrb (r1 )+ / yes, make it even 
2: / clear area between the break point and the stack 

cmp r1 ,sp / is it higher or same than the stack 

bhis 1f / yes, quit 

clr (r1 )+ / clear word 

br 2b / go back 

jsr rO,arg; u. break / put the "address" in u.break (set new 

/ break point) 
sysret4 / br sysret 

contains the mode 

$1 00000. r1 / allocate flag set 
r1 f -(sp) / put mode on stack 
ii,r1 / move current i-number to r1 
rO, access; 1 / get its i-node into core 
r1,-(sp) / put i-number on stack 
$40., r1 / rl s 40 
a free i-node (next 4 instructions) 
r1 / r1 * r1+1 
r0,imap / get byte address and bit position in inode map in 

/ r2 & m 
mq,(r2) / is the i-node active 
1b / vob, try the next one 

mq,(r } / no, make it active (put a 1 in the bit map) 
r0,iget / get i-node into core 
i.flgs / is i-node already allocated 
1b / yes, look for another one 
r1 ,u.dirbuf / no, put i-number in u.dirbuf 
(sp)+,r1 / get current i-number back 
r0,iget / get i-node in core 

r0,mkdir / make a directory entry in current directory 
u.dirbuf ,r1 / r1 = new inode number 
r0,iget / get it into core 
r0,copyz; inode; inode+32. / it out 
(sp)+, i.flgs / fill flags 
u.uid,i.uid / user id 
$1 ,i.nlks / 1 link * 
s.time,i.ctim / time created 
s.time+2,i»ctim+2 / time modified 
rO,setimod / set modified flag 
rO / return 



/ 



br 

maknod: / r1 
bis 
mov 
mov 
jsr 
mov 
mov 
scan for 
inc 
jsr 

bitb 

bne 

bisb 

jsr 

tst 

bit 

mov 

mov 

jsr 

jsr 

mov 

jsr 

jsr 

mov 

movb 

movb 

mov 

mov 

jsr 

rts 



sysseek: / moves read write pointer in an fsp entry 

jsr r0,seektell / get proper value in u. count 

add u. base, u. count / add u.base to it 

mov u« count, *u.f of p / put result into r/w pointer 
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br 



sysret4 



systell: / get the r/w pointer 
jsr rOfSeektell 
br error4 



error4 : 
sysret4: 



jmp 
jmp 



seektell: 

jsr 
jsr 
mov 
jsr 
mov 
beq 
bgt 
neg 
jsr 
cmp 
bit 
beq 
mov 
br 

1 : / ptr name 
mov 

2: / ptr name : 
mov 
rts 



error / see 'error* routine 
sysret / see 'sysret' routine 



rO,arg; u.base / puts offset in u.base 

rO,arg;u. count / put ptr name in u. count 

*u.r0,r1 / file descriptor in r1 (index in u.fp list) 

rO,getf / u.fofp points to 3rd word in fsp entry 

r1,-(sp) / r1 has i-number of file, put' it on the stack 

error4 / if i-number is 0, not active so error 

,+4 / if its positive jump 

r1 / if not make it positive 
r0,iget / get its i-node into core 

u.count,$1 / is ptr name =1 

2f / no its zero 

1f / yes its 1 

i.size,u. count / put number of bytes in file in u. count 

2f 
=1 

*u. f of p,u. count / put offset in u. count 


(sp)+,r1 / i-number on stack r1 

rO 



*Wit; 



sysintrs / set interrupt handling 

jsr r0,arg; u.intr / put the argument in u.intr 

br 1f / go into quit routine 

jsr rO f arg; u.quit / put argument in u.quit 

1: 

mov u.ttyp,r1 / move pointer to control tty buffer to r1 
beq sysret4 / return to user 

clrb 6(rl) / clear the interrupt character in the tty buffer 
br sysret4 / return to user 

syssetuid: / set process id 

movb *u.r0,r1 / move process id (number) to r1 

cmpb r1,u.ruid / is it equal to the real user id number 

beq 1f / yes 

tstb u.uid / no, is current user the super user? 

bne error4 / no, error 



1: 

movb 
movb 
br 

sysgetuid : 

movb 
br 



r1 , u.uid / put process id in u.uid 

r1 ,u.ruid / put process id in u.ruid 
sysret4 / system return 



u.ruid,*u.r0 / move the real user id to (u.rO) 
sysret4 / system return, sysret 
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fclose: 



2: 

1: 



mov r1,-(sp) / put r1 on the stack (it contains the index 

/ to u.fp list) 
jsr rO,getf / r1 contains i-number, cdev has device = , u.fofp 

/ points to 3rd word of f sp entry 
tst r1 / is inuirber 0? 

beq 1f / yes, i-node not active so return 
tst (r0)+ / no, jump over error return 
mov r1 ,r2 / move i-number to r2 
mov ' (sp),r1 / restore value of r1 from the stack which is 

/ index to u»fp 
clrb u.fp(rl) / clear that entry in the u.fp list 
mov u.fofp,r1 / r1 points to 3rd word in fsp entry 
decb 2(rl) / decrement the number of processes that have opened 

/ the file 
bge 1f / if all processes haven't closed the file, retvirn 
mov r2,-(sp) / put r2 on the stack (i-number) 
clr -4(r1 ) / clear 1st word of fsp entry 
tstb 3(rl) / has this file been deleted 
beq 2f / no, branch 

mov r2,r1 / yes, put i-number back into r1 
jsr r0,anyi / free all blocks related to i-number 

/ check if file appears in fsp again 

mov (sp)+,r1 / put i-number back into r1 

jsr r0,iclose / check to see if its a special file 

mov (sp)+,r1 / put index to u.fp back into r1 
rts rO 



anyi: / r1 contains an i— number 



mov 



1: 



$fsp,r2 / move start of fsp table to r2 



cmp r1 , ( r2 ) / do i-numbers match? 

beq 1f / yes, 1f 

neg r1 / no complement r1 

cmp r1 , ( r2 ) / do they match now? 

beq 1f / yes, transfer 

/ i-numbers do not match 

add $8,r2 / no, bump to next entry in fsp table 

cmp r2,$fsp+[nf iles*8] / are we at last entry in the table 

bit 1b / no, check next entries i-number 

tst r1 / yes, no match 

bge .+4 

neg r1 / make i-number positive 

jsr rO,imap / get address of allocation bit in the i-map in r2 

bicb mq,(r2) / clear bit for i-node in the imap 

Jsr r0,itrunc / free all blocks related to i-node 

clr i.flgs / clear all flags in the i-node 

rts rO / return 

1 : / i-numbers match 

incb 7(r2) / increment upper byte of the 4th word 

rts rO / in that fsp entry (deleted flag of fsp entry) 
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/ u3 — unix 

tswap: 

movb 

mov 

jsr 



u.uno, r1 / move users process number to r1 
$runq+4,r2 / move lowest priority queue address to r2 
rO,putlu / create link from last user on Q to u.uno s user 



swap: 
1: / 



mov $300,*$ps / processor priority = 6 
mov $runq,r2 / r2 points to runq table 
search runq table for highest priority process 

tst (r2) + / are there any processes to run in this Q entry 

bne 1f / yes, process 1f 

cmp r2,$runq+6 / if zero compare address to end of table 

bne 1b / if not at end, go back 

jsr rO,idle; s.idlet+2 / wai£ for interrupt; all queues 

/ are empty 
br swap 



1: 



1s 

2: / 

/ 



1: 



tst 

mov 

movb 

cmpb 

beq 

tst 

movb 

br 

clr 
write out 
required 

clr 

cmpb 

beq 

mov 

mov 

mov 

mov 

tstb 

beq 

jsr 

mov 
jsr 
jsr 

mov 

mov 



-(r2) / restore pointer to right Q entry 

r2,u.pri / set present user to this run queue 

(r2)+,r1 / move 1st process in queue to r1 

r1,(r2) + / is there only 1 process in this Q to be run 

1f / yes 

-(r2) / no, pt r2 back to this Q entry 

p.link-l(r1 ),(r2) / move next process in line into 

/ run queue 
2f 

-(r2) / zero the entry; no processes on the Q 

core to appropriate disk area and read in new process if 

*$ps / clear processor status 

r1 , u.uno / is this process the same as the process in core? 

2f / yes, don't have to swap 

rO,-(sp) / no, write out core; save rO (address in rout? 

/ that called swap) 
sp,u.usp / save stack pointer 

$sstack,sp / move swap stack pointer to the stack pointer 
r1,-(sp) / put r1 (new process #) on the stack 
u.uno / is the process # « 
1f / yes, kill process by overwriting 
rO,wswap / write out core to disk 



2: 



(sp)+,r1 / restore r1 to new process number 

rO,rswap / read new process into core 

rO, unpack / unpack the users stack from next to his program 

/ to its normal 
u.usp,sp / location; restore stack pointer to new process 

/ stack 
(sp)+,rO / put address of where the process that just got 

/ swapped in, left off., i.e., transfer control 

/ to new process 

movb $30.,uquant / initialize process time quantum 
rts rO / return 
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wsw >p: 



1: 



2: 
1: 



1: 



mov *$30,u.emt / determines handling of eirts 

mov *$10,u.ilgins / determines handling of illegal instructions 

mov u. break, r2 / put process program break address in r2 

inc r2 / add 1 to it 

bic $1 ,r2 / make it even 

mov r2,u. break / set break to an even location 

mov u.usp,r3 / put users stack pte: at moment of swap in r3 

cmp r2,$core / is u. break less than $core 

bios 2f / yes 

cmp r2,r3 / no, is (u. break) greater than stack pointer 

bhis 2f / yes 

mov (r3)+,(r2)+ / no, pack stack next to users program 

cmp r3,$ecore /has stack reached end of core 

bne 1b / no, keep packing 

br 1f / yes 

mov $ecore,r2 / put end of core in r2 

sub $user,r2 / get number of bytes to write out (user up 

/ to end of stack gets written out) 

neg r2 / make it negative 

asr r2 / C, ange bytes to words (divide by 2) 

mov r2,swpf4 / word count 

movb u.uno,ri / move user process number to r1 

asl r1 / x2 for index 

mov r2,p.break-2(r1 ) / put negative of word count into the 

/ p. break table 

mov p.dska-2(r1 ),r1 / move disk address of swap area for 

/ process to r1 

mov r1,swp+2 / put processes dska address in swp +2 (block 

/ number) 

bis $1000, swp / set it up to write (set bit 9) 

jsr r0,ppoke / write process out on swap area of disk 

tstb swp+1 / is it done writing? 

bne 1b / no, wait 

rts rO / yes, return to swap 



rswap: 

asl r1 / process number x2 for index 

mov p.break-2(r1 ), swp+4 / word count 

mov p.dska-2(r1 ),swp+2 / disk address 

bis $2000, swp / read 

jsr r0,ppoke / read it in 
1: 

tstb swp+1 / done 

bne 1b / no, wait for bit 15 to clear (inhibit bit) 

mov u,emt,*$30 / yes move these 

mov u.ilgins,*$10 / back 

rts rO / return 

unpack: / move stack back to its normal place 

mov u.break,r2 / r2 points to end of user program 
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1: 



2: 



cmp r2, Score / at beginning of user program yet? 

bios 2f / yes, return 

cmp r2,u«usp / is break^above the stack pointer before 

/ swapping 

bhis 2f / yes, return 

mov $ecore,r3 / r3 points to end of core 

add r3 , r 2 

sub u«usp,r2 / end of users stack is in r2 

mov -(r2),-(r3) / move stack back to its normal place 

cmp r2,u. break / in core 

bne 1 b 

rts rO 



putlu: / r1 = 
tstb 
beq 
movb 
movb 
br 



1: 



2: 



copyz : 



1: 



movb 



movb 



user process no,; r2 points to lowest priority queue 
(r2)+ / is queue empty? 
1f / yes, branch m m 

(r2),r3 / no, save the last user process number in H r3 
r1 ,p.link-l (r3) / put pointer to user on last users- link 
2f / 

r1,-l(r2) / user is only user; put process no. at beginning 
/ and at end 

r1,(r2) / user process in r1 is now the last entry on 
/ the queue 



dec 


r2 / restore r2 


rts 


rO 


mov 


r1,-(sp) / put r1 on stack 


mov 


r2,-(sp) / put r2 on stack 


mov 


(r0)+,r1 


mov 


(r0)+,r2 


clr 


(rl)+ / clear all locations between r1 and r2 


cmp 


r1,r2 


bio 


1b 


mov 


(sp)+,r2 / restore r2 


mov 


(sp)+,r1 / restore r1 


rts 


rO 



idle: 



mov *$ps,-(sp) / save ps on stack 

clr *$ps / clear ps 

mov clockp, -(sp) / save clockp on stack 

mov (r0)+, clockp / arg to idle in clockp 

1 / wait for interrupt 

mov (sp)+, clockp / restore clockp, ps 

mov (sp)+,*$ps 

rts rO 



clear: 



jsr rO,wslot / get an I/O buffer set bits 9 and 15 in first 

/ word of I/O queue r5 point 1 - to first data word 
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/ in buffer 
mov $256. t r3 

clr (r5)+ / zero data word in buffer 

dec r3 

bgt 1b / branch until all data words in buffer are zero 

jsr rO,dskwr / write zeroed buffer area out onto physical 

/ block specified 
rts rO / in r1 
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/ u4 — - unix 



setisp: 



mov 
mov 
mov 
mov 
mov 
jtnp 



r1 ,-(sp) 

r2,-(sp) 

r3,-(sp) 

clockp,-(sp) 

$s.syst+2,clockp 

(rO) 



clock: / interrupt 
mov 
tst 
mov 
inc 
bne 
inc 



from 60 cycle clock 
r0,-(sp) / save rO 
*$lks / restart clock? 
$s.time+2,r0 / increment 
<r0) 
1f 
-CrO) 



the time of day 



1 



2: 



3: 



mov 
inc 
bne 
inc 

mov 

decb 

bge 

clrb 
/ decrement 

cmp 

bge 

tstb 

bne 

empb 

bne 

mov 

sys 

rti 
/ priority 

mov 

tstb 

beq 

decb 

bne 

incb 

inc 
cmp 
bio 
mov 
rti 
/ decrement 
mov 
mov 
Jsr 



clockp,r0 
<r0) 
1f 
-(rO) 



/ increment appropriate tine category 



$uquant,r0 / decrement user tirt<* quantum 

(rO) 

1f / if less than 

(rO) / make it 

time out counts return now if priority was not 

4(sp),$200 / ps greater than or equal to 200 

2f / yes, check time outs 

(rO) / no, user timed out? 

1f / no 

sysflg,$-1 / yes, are we outside the system? 

1f / no, 1f 

(sp)+,r0 / yes, put users rO in rO 

/ sysrele 



is high so just 
$toutt,r0 / rO 



decrement 
points to 



time out counts 
beginning of time 



out table 



(rO) / is the time out? 

3f / yes, 3f (get next entry) 

(rO) / no, decrement the time 

3f / fsit zero now? 

(rO) / yes, increment the time 

rO / next entry 

rO, Stouts / end of toutt table? 

2b / no, check this entry 

(sp)+,r0 / yes, restore rO 

/ return from interrupt 

time out counts; if call subroutine 

(sp)+,r0 / restore rO 

$240,*$ps / set processor priority to 

rO, setisp / save registers 
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1: 



2: 



ttyi: 



1: 



1: 



2: / 



2: 



mov $touts-toutt-1 t r0 / sec up rO as index to decrement thru 

/ the table 

tstb toutt(rO) / is the time out for this entry 

be i 2f / yes 

decb toutt(rO) / no, decrement the time 

bne 2f / is the time 0, now 

asl rO / yes, 2 x rO to get word index for tout entry 

jsr r0,*toute(rC) / go to appropriate routine specified in this 

asr rO / touts entry; set rO back to toutt index 

dec rO / set up rO for next entry 

bge 1b / finished? , no, go beck 

br retisp / yes, restore registers and do a rti 

/ console tty input interrupt routine 
jsr r0,setisp / save reg r1 , r2, r3 
mov *$tkb,r1 / r1 = char in tty reader buffer 
inc *$tks / set the reader enable bit 
bic $!177,r1 / clear upper 9 bits of the character (strip off 

/ 8th bit of char) 
emp r1,$*a-40 / is character upper case A,.*., upper case Z, 

/ note that 
bit 1f / lower case a is represented by 141, upper case by 
emp r1,$'z-40 / 101; and lower case z by 172, upper 

/ case Z by 132. 
bgt 1f / if not upper case, branch 

add $40, r1 / if upper case, calculate the representation of its 
/ lower case counter part 

emp r1,$175 / char s= "}"? Note: may be quit char (fs) 

beq 2f / yes 2f 

emp r1,$177 / char = "del"? 

beq 2f / yes, 2f 

jsr r0,putc; / put char in r1 on clist entry 

br 1f 

r1 ,ttyoch / put char in ttyoch 

rO,startty / load char in tty output data buffer 

r1,$4 / r1 = "eot" 

1f / yes, 1f m m 

r1,$12 / r1 * If 

1f / yes 1f 

cc+0,$15. / are there less than 15 chars on the input list 

retisp / yes, return 



movb 

jsr 

emp 

beq 

emp 

beq 

empb 

bio 

jsr 
br 
r1 = } 
mov 
beq 
movb 



jsr 
br 



r0,wakeup; runq; / no, wakeup the input process 

retisp / return 
or delete" to get here 

tty+[ntty*8]-8+6,r2 / move console tty buff er address to r2 
2f / if 0, wakeall m m m 

r1,6(r2) / move "}" or del into "interrupt char" 
/ byte of buffer 

rO, wakeall / wakeup all sleeping processes 
retisp / return 
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wakeall: 



1: 



mov $39., Of / fill arg2 of wakeup call with 39 

jsr rO, wakeup; runq+4; 0:.. / wakeup the processes in the 

dec Ob / wait list; decrement arg2 

bge 1b / if not done, go back 

rts rO 

ttyo: / console typewriter output interrupt- routine 

Jsr r0,setisp / save registers Ye&jt&s 

jsr rO,startty / put a char en the console tty output buffer - 

br retisp / restore registers 



reti sp : 



mov (sp)+,clockp / pop values before interrupt off the stack 

mov (sp)+,r3 

mov (sp)+,r2 

mov (sp)+,r1 

mov (sp)+,r0 

rti / return from interrupt 

ppti: / paper tape input interrupt routine 
jsr r0,setisp / save registers m 

movb pptiflg,r1 / place pptiflg in r1 „ 

jmp *1f(rl) / jump to location specified by value of pptiflg 

1: 

retisp / file not open 
1f / file just opened 
2f / file normal 
retisp / file not closed 

1 : / file just opened 

tstb *$prs+1 /is error bit set in prs 

bge 1f / no 

jsr rO, ppti to / place 10 in toutt entry for ppt input 

br retisp 



1: 
2: 



movb $4, pptiflg / change "pptiflg" to indicate file "normal 

jsr rO, wakeup; runq+2; 2 / wakeup process for ppt input entry 

/ in wlist 
tstb *$prs+1 /is error bit set 
bit 1f / yes 

mov *$prb,r1 / place contents ppt read buffer in r1 
jsr r0,putc; 2 / place character in clist area for ppt input 

br .+2 / temp / if no space in clist character lost 
cmpb cc+2,$50. / character count in clist area for ppt input 

/ greater than or equal to 50 
bhis retisp / yes 

inc *$prs / no, set reader enable bit in prs 
br retisp 

movb $6, pptiflg / set pptiflg to 6 to indicate error bit set 
br retisp 



/lpto: 
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/ 
/ 

/ 



jsr rO,setisp 
jsr rO, starlpt 
br retlsp 



ppto: / paper tape output interrupt routine 
jsr rO,setisp / d ive registers 
jsr rO f starppt / get next character from clist, and output 

/ if possible 
br retisp / pop register values from stack 



/starlpt: 



/ 

/ 

/ 

/1: 

/ 

/ 

/ 

/ 

/ 

/ 

/1: 

/ 



cmpb cc+5.,$100. 

bhi 1f 

jsr rO,wakeup; runq+2; 5 

tstb *$lps 

bge 1f 

jsr rO,getc; 5 

br 1f 

mov r1,*$lpb 

br starlpt 

rts rO 



startty: / start or restart console tty output 
cmpb cc+1,$5. 
bhi 1f / branch to 1f when character count on tty (? input, 

/ output) list is greater than 5. 
jsr rO,wakeup; runq+2; 1 



1 



U 



2: 



tstb *$tps / test console output ready bit 

bge 2f / branch if ready bit is clear 

tstb toutt+O / is toutt for console a zero 

bne 2f / if not; branch to 2f 

movb ttyoch, r1 / put character to be output in r1 

bne 1f 

jsr rO,getc; 1 / if char is nul, get a char from console 

/ output list 
br 2f / if console output list is empty, branch to 2f 

clrb ttyoch 

mov r1,*$tpb / put character in console output register 

cmp r1,$12 / is char a line feed 

bne 1f 

movb $15, ttyoch / put a cr in ttyoch 

cmp r1,$11 / char » ht 

bne 1f 

movb $15., toutt+O / set time out to 1 5 clock tics 

cmp r1,$15 / char = cr 

bne 2f 

movb $15., toutt+O / set time out to 15 clock ticks 

rts rO 
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pptito: / paper tape input touts subrouting 

cmpb pptiflg,$2 / does "pptiflg indicate file just opened 

bne 1f / no, do nothing pff 

roovb $10.,toutt+1 / yes, place 10 in tout entry f or .tty input 

tstb *$prs+1 / is error bit set 

bit 1f / yes, return 

inc *$prs / no, set read enable bit 



1 



rts 



rO 



starppt: / start ppt output 

cmpb cc+3,$10. / is character count for ppt output greater 

/ than 10. 
bhi 1f / yes, branch 

jsr r0,wakeup; runq+2; 3 / no, wakeup process in wlist 

/ entry for ppt input 

1: 

tstb *$pps / is ready bit set in punch status word 
bge 1f / no, branch 

jsr r0,getc; 3 / yes, get next char in clist for pptout and 

/ place in r1 
br If / if none, branch 
mov r1,*$ppb / place character in ppt buffer 

1: 

rts rO 

wakeup: / wakeup processes waiting for an event by linking them to the 

/ queue 

mov r1,-(sp) / put char on stack 

mov (r0)+,r2 / r2 points to a queue 

mov (r0)+,r3 / r3 = wait channel number 

movb wlist (r3),r1 / r1 contains process number in that wait 

/ channel that was sleeping 

beq 2f / if return, nothing to wakeup 

cmp r2,u.pri / is runq greater than or equal to users process 

/ priority 

bhis 1f / yes, don't set time quantum to zero 

clrb uquant / time quantum * 
1: 

clrb wlist{r3) / zero wait channel entry 

jsr r0,putlu / create a link from the last user on the Q 

/ to this process number that got woken 
2: 

mov (sp)+,r1 / restore r1 

rts rO 

sleep: / wait for event 

jsr r0,isintr / check to see if interrupt or quit from user 

br 2f / something happened / yes, his interrupt so return 
/ to user 
mov (r0)+,r1 / put number of wait channel in r1 
movb wlist(r1 ),-(sp) / put old process number in there, on 

/ the stack 
u.uno,wlist(r1 ) / put process number of process to put 

/ to sleep in there 
cdev,-(sp) / nothing happened in isintr so 



movb 
mov 
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1: 
2: 



jsr rO,swap / swap out process that needs to sleep 

mov (sp)+,cdev / restore device 

jsr rO,isintr / check for interrupt of new process 

br 2f / yes, return to new user 

movb (sp)+,r1 / no, r1 = old process number that was originally 

/ on the wait channel 

beq 1f / if branch 

mov $runq+4,r2 / r2 points to lowest priority queue 

mov $300,*$ps / processor priority = 6 

jsr rO,putlu / create link to old process number 

clr *$ps / clear the status; process priority s 

rts rO / return 

jmp sysret / return to user 



isintr: 



1s 



4: 



mov r1,-(sp) / put number of wait channel on the stack 

mov r2,-(sp) / save r2 

mov u.ttyp,r1 / r1 = pointer to buffer o" process control 

/ typewriter 

beq 1f / if 0, do nothing except skip return 

movb 6(rl),r1 / put interrupt char in the tty buffer in r1 

beq 1f / if its do nothing except skip return 

cmp r1,$177 / is interrupt char * delete? 

bne 3f / no, so it must be a quit (fs) 

tst u.intr / yes, value of u. intr determines handling 

/ of interrupts 

bne 2f / if not 0, 2f . If zero do nothing, 

tst (r0)+ / bump rO past system return (skip) 



mov (sp)+,r2 / restore r1 and r2 

mov (sp)+,r1 

rts rO 
3: / interrupt char = quit (fs) 

tst u.quit / value of u.quit determines handling of quits 

beq 1b / u.quit = means do nothing 
2: / get here because either u.intr ^ or u.quit ^ 

mov $tty+6,r1 / move pointer to tty block into r1 
1 : / find process control tty entry in tty block 

cmp (rl),u.ttyp / is this the process control tty buffer? 

beq 1f / block found go to 1f 

add $8,r1 / look at next tty block 

cmp r1 ,$tty+[ntty*8]+6 / are we at end of tty blocks 

bio 1b / no 

br 4b / no process control tty found so go to 4b 
1 : 

mov $240,*$ps / set processor priority to 5 

movb -3(rl),0f / load getc call argument; character list 

/ identifier 

inc Of / increment 
1: 

jsr r0,getc; 0:.. / erase output char list for control 
br 4b / process tty. This prevents a line of stuff 
/ being typed out after you hit the interrupt 
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UNIX IMPLEMENTATION 



mget; 



2: 
3: / 



mov *u.fofp,mq / file offset in mq 

clr ac / later to be high sig 

mov $-8,lsh / divide ac/mq by 256. 

mov mq,r2 

bit $1 0000, i. figs / lg/sm is this a large or small file 

bne 4f / branch for large file 

bit s!17,r2 « 

bne 3f / branch if^K greater than or equal to 16 

bic 0116, r2 / clear all bits but bits 1,2,3 

mov i.dskp(r2),r1 / r1 has physical block number 

bne 2f / if physical block num is zero then need a new block 

/ for file 

jsr rO, alloc / allocate a new block 

mov r1 ,i.dskp(r2) / physical block number stored in i-node 

jsr r0,setimod / set inode modified byte (imod) 

jsr rO, clear / zero out disk/drum block ^ust allocated 

rts rO 
adding on block which changes small file to a large file 

jsr rO, alloc / allocate a new block for this file; block number 

/ in r1 
jsr r0,wslot / set up I/O buffer for write, r5 points to first 

/ data word in buffer 
mov $8.,r3 / next 6 instructions transfer old physical block 

/ pointers 
mov $i.dskp,r2 / into new indirect block for the new large file 



1: 



1: 



4: / 



mov 
clr 
dec 
bgt 
mov 

clr 
dec 
bgt 
jsr 
mov 
bis 
jsr 
br 
large fi 
mov 
bic 

mov 
mov 

bic 
mov 
bne 
jsr 



(r2),(r5)+ 

(r2) + 

r3 

lb 

$256. -8., r3 / clear rest of data buffer 

<r5) + 
r3 

1b 

r0,dskwr / write new indirect block on disk 

r1,i.dskp / put pointer to indirect block in i-node 

$10000, i. figs / set large file bit in i.flgs word of i-node 

r0,setimod / set i-node modified flag 

mget 



le 



$-8,lsh / divide byte number by 256. 

$!776,r2 / zero all bits but 1,2,3,4,5,6,7,8; gives offset 

/ in indirect block 
r2,-(sp) / save on stack 
mq,r2 / calculate offset in i-node for pointer to proper 

/ indirect block 
$!16,r2 
i.dskp(r2),r1 

2f / if no indirect block exists 
rO, alloc / allocate a new block 



Issue D Date 3/17/72 



ID IMO.1-1 



Section E.5 Page 1 



UNIX IMPLEMENTATION 



2: 



2: 



tnov r1 f i.dskp(r2) / put block number of new block in i-node 
jsr rO,setimod / set i-node modified byte 
jsr rO, clear / clear new block 

jsr rO,dskrd / read in indirect block 

mov (sp)+,r2 / get offset 

mov r1 ,-(sp) / save block number of indirect block on stack 

add r5,r2 / r5 points to first word in indirect block, r2 

/ points to location of inter 
mov (r2),r1 / put physical block no of block in file 

/ sought in r1 
bne 2f / if no block exists 
jsr rO, alloc / allocate a new block 
mov r1,(r2) / put new block number into proper location in 

/ indirect block 
mov (sp)+,r1 / get block number of indirect block 
mov (r2),-(sp) / save block number of new block 
jsr rO,wslot 
jsr rO,dskwr / write newly modified indirect block back out 

/ on disk 
mov (sp),r1 / restore block number of new block 
jsr rO, clear / clear new block 

tst (sp)+ / bump stack pointer 
rts rO 



alloc: 



mov r2,-(sp) / save r2, r3 on stack 

mov r3,-(sp) 

mov $systm,r2 / start of inode and free storage map for drum 

tst cdev 

beq 1f / drum is device 

mov $mount,r2 / disk or tape is device, start of inode and free 

/ storage map 

mov (r2)+,r1 / first word contains number of bytes in free 

/ storage map 

a si r1 / multiply r1 by eight gives, number of blocks in device 

a si r1 

asl r1 

mov r1 ,-(sp) / save # of blocks in device on stack 

clr r1 / r1 contains bit count of free storage map 

mov (r2)+,r3 / word of free storage map in r3 

bne 1f / branch if any free blocks in this word 

add $16«,r1 

cmp r1,(sp) / have we examined all free storage bytes 

bio 1b 

jmp panic / found no free storage 

asr r3 / find a free block 

bcs 1f / branch when free block found; bit for block k is in 

/ byte k/8 / in bit k (mod 8) 

inc r1 / increment bit count in bit k (mod8) 

br 1b 



1: 
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tst (sp)+ / bump sp 

jsr r0,3f / have found a free block 

bic r3,(r2) / set bit for this block i.e. assign block 

br 2f 



free: 



2: 



1: 



mov r2,-(sp) / save r2, r3 

mov r3,-(sp) 

jsr rO f 3f / set up bit mask and word no. in free storage map 

/ for block 

bis r3,(r2) / set free storage block bit; indicates free block 

mov (sp)+,r3 / restore r2, r3 

mov (sp)+,r2 

tst cdev / cdev » 0, block structured, drum; cdev s 1 

/ mountable device 

bne 1f 

incb smod / set super block modified for drum 

rts rO 

incb mmod / set super block modified for mountable device 

rts rO 



3: 



1: 



mov 
bic 
clr 
bisb 

mov 
asr 
asr 
asr 
asr 
bcc 

swab 





asl 
add 




tst 
beq 
add 


1: 
2: 


rts 
•byte 


access: 






jsr 




mov 


Issue D 


Date 



r1 ,r2 / block number, k, = 1 

$!7,r2 / clear all bits but 0,1,2; r2 = (k) mod (8) 

r3 
2f(r2),r3 / use mask to set bit in r3 corresponding to 
/ (k) mod 8 
r1 ,r2 / divide block number by 16 
r2 
r2 
r2 
r2 
1f / branch if bit 3 in r1 was i.e., bit for block is in 

/ lower half of word 
r3 / swap bytes in r3 ; bit in upper half of word in free 
/ storage map 

r2 / multiply block number by 2; r2 = k/8 

$systm+2,r2 / address of word of free storage map for drum 

/ with block bit in it 
cdev 

1f / cdev = indicates device is drum 
$mount-cystm,r2 / address of word of free storage map for 

/ mountable device with bit of block to be 

/ freed 

rO / return to 'free* 

1,2,4,10,20,40,100,200 / masks for bits 0,...,7 

r0,iget / read in i-node for current directory (i-number 

/ passed in r1 ) 
i.flgs,r2 
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1: 



1: 

setimodj 



cmpb i*vild,u.uid / is user same as owner of file 

bne 1f / no, then branch 

asrb r2 / shift owner read write bits into non owner 

/ read/write bits 
asrb r2 

bit r2,(r0)+ / test read-write flags against argument in 

/ access call 
bne 1f 
tstb u.uid 
beq 1f 
jmp error 

rts rO 



imap: / 



1: 



movb $1 ,imod / set current i-node modified bytes 

mov s»time,i.mtim / put present time into file modified time 

mov s.time+2,i«mtim+2 

rts rO 

get the byte that has the allocation bit for the i-number contained 

in r1 

mov $1 ,mq / put 1 in the mq 

mov r1 ,r2 / r2 now has i-number v hose byte in the map we 

/ must find 
sub $41., r2 / r2 has i-41 
mov r2,r3 / r3 has i-41 

bic $17, r3 / r3 has (i-41) mod 8 to get the bit position 
mov r3,lsh / move the 1 over (i-41) mod 8 positions to the left 

/ to mask the correct bit 
asr r2 
asr r2 
asr r2 / r2 has (i-41) base 8 of the byte no, from the start of 

/ the map 
mov r2,-(sp) / put (i-41 ) base 8 on the stack 
mov $systm,r2 / r2 points to the in-core image of the super 

/ block for drum 
tst cdev / is the device the disk 
beq 1f / yes 

add $mount-systm,r2 / for mounted device, r2 points to 1st word 

/ of its super block 

add (r2)+,(sp) / get byte address of allocation bit 

add (sp) '« ,r2 / ? 

add $2,r2 / ? 

rts rO 



iget: 



cmp r1 ,ii / r1 * i-number of current file 

bne 1f 

cmp idev,cdev /is device number of i-node = current device 

beq 2f 



tstb 
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1: 



2: 



beq 1f 

clrb imod / if it has, we must write the new i-node out on disk 

mov r1 ,-(sp) 

mov cdev,-(sp) 

mov ii,r1 

mov idev,cdev 

jsr rO, icalc; 1 

mov (sp)+,cdev 

mov (sp)+,r1 

tst r1 / is new i-number non zero 

beq 2f / branch if r1 =0 

tst cdev / is the current device number non zero (i.e., device 

/ / drum) 

bne 1f / branch if cdev ^ 

cmp r1 ,mnti / mnti is the i-number of the cross device 

/ file (root directory of mounted device) 

bne 1f 

mov mntd,cdev / make mounted device the current device 

mov rootdir,r1 

mov r1 ,ii 

mov cdev,idev 

jsr r0,icalc; / read in i-node ii 

mov ii,r1 

rts rO 



icalc: / i-node i is 
/ (i+31 )mod16 
add 
mov 
asr 
asr 
asr 
asr 

jsr 
tst 
beq 
jsr 



located in 
bytes from 



block (i+31.)/l6. and begins 32.* 

its start 
$31., r1 / add 31. to i-number 
r1,-(sp) / save i+31. on stack 
r1 / divide by 16. 
r1 
r1 
r1 



r1 contains block number of block in which 

i-node exists 

krd / read in block containing i-node i. 



/ 
/ 
rO,d£ 

(rO) 

1f / branch to wslot when argu rent in icalc call = 1 
r0,wslot / set up data buffer for write (will be same buffer 
/as dskrd got) 



bic 
mov 
mov 
add 
mov 
mov 
tst 
beq 

mov 
dec 
bgt 
jsr 



(i+31 .) mod 16 
32.*(i+31 .)mod16 



$!17,(sp) / zero all but last 4 bits; gives 

(sp)+,mq / calculate offset in data buffer; 

$5,lsh / for i-node i. 

mq,r5 / r5 points to first word in i-node i. 

$inode,r1 / inode is address of first word of current i-node 

$16.,r3 

(r0)+ / branch to 2f when argument in icalc call = 

2f / rO now contains proper return address for rts rO 

(rl)+,(r5)+ / over write old i-node 

r3 

1b 

r0,dskwr / write inode out on device 
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2: 



rts rO 

mov (r5)+,(rl)+ / read new i-node into "inode" area of core 

dec r3 

bgt 2b 

rts rO 



itrunc: 



1 i 



3: 



4: 



5: 



jsr rO,iget 

mov $i.dskp,r2 / address of block pointers in r2 

mov (r2)+,r1 / move physical block number into r1 

beq 5f 

mov r2,-(sp) 

bit $1 0000, i. figs / test large file bit? 

beq 4f / if clear, branch 

mov r1,-(sp) / save block number of indirect block 

jsr r0,dskrd / read in block, 1st data word pointed to by r5 

mov $256., r3 / move word count into r3 

mov (r5)+,r1 / put. 1st data word in r1 ; physical block number 

beq 3f / branch if zero 

mov r3,-(sp) / save r3, r5 on stack 

mov r5,-(sp) 

jsr r0,free / free block in free storage map 

mov (sp)+,r5 

mov (sp)+,r3 

dec r3 / decrement word count 

bgt 2b / branch if positive 

mov (sp)+,r1 / put physical block number of indirect block 

jsr r0,free / free indirect block 

mov (sp)+,r2 

cmp r2,$i.dskp+16. 

bne 1b / branch until all i.dskp entries chec 

bic $1 0000, i .figs / clear large file bit 

clr i.size / zero file size 

jsr r0,copyz; i.dskp; i.dskp+16. / zero block pointers 

jsr r0,setimod / set i-node modified flag 

mov ii,r1 

rts rO 
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UNIX IMPLEMENTATION 



readi; 



1: 



1 : 



1: 



clr 
tst 
bgt 
rts 

mov 
cmp 

ble 

Jmp 



asl 
jmp 

rtty 
rppt 
rrnem 
rrfO 
rrkO 
rtap 
rtap 
rtap 
rtap 
rtap 
rtap 
rtap 
rtap 
rcvt 
rcvt 
rcvt 
rcvt 
rcvt 
rcvt 
rcvt 
rcvt 
rcrd/ 



u.nread / accumulates number of bytes transmitted 

u. count / is number of bytes to be read greater than 

1f / yes, branch 

rO / no, nothing to read; return to caller 

r1 ,-(sp) / save i-number on stack 

r1,$40. / want to read a special file (i-nodes 1,..*,40 are 

/ for special files) 
1f / yes, branch 

dskr / no, jmp to dskr; read file with i-node number (r1 ) 
/ starting at byte ((u.fofp)), read in u. count bytes 

r1 / multiply inode number by 2 
*1f-2(rl) 



/ tty; 
/ PPt; 
/ mem j 
/ rf 
/ rkO 
/ tapO 
/ tapl 
/ tap2 
/ tap3 
/ tap4 
/ tap5 
/ tap6 
/ tap7 
/ ttyO 
/ ttyl 
/ tty2 
/ tty3 
/ tty4 
/ tty5 
/ tty6 
/ tty7 
crd 



r1=2 
r1=4 
r1=6 



rtty; / read from console tty 

mov tty+[8*ntty]-8+6,r5 / r5 is the address of the 4th word of 

/ of the control and status block 
tst 2(r5) / for the console tty; this word points to the console 

/ tty buffer 
bne If / 2nd word of console tty buffer contains number 

/ of chars. Is this number non-zero? 
jsr rO, canon; ttych / if 0, call 'canon' to get a line 

/ (120 chars.) 



1 



tst 2(r5) / is the number of characters zero 
beq retl / yes, return to caller via 'retl ' 
movb *4(r5),r1 / no, put character in r1 

inc 4(r5) / 3rd word of console tty buffer points to byte which 
/ contains the next char. 
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retl : 
rppt: / 



dec 2(r5) / decrement the character count 

jsr rO, passe / move the character to core (user) 

br 1b / get next character 

jmp ret / return to caller via 'ret' 

read paper tape 

jsr rO,pptic / gets next character in clist for ppt input and 

/ places 

br ret / it in r1 ; if there is no problem with reader, it 
/ also enables read bit in prs 
jsr rO, passe / place character in users buffer area 
br rppt 

rmem: / transfer characters from memory to a user area of core 

mov *u.fofp,r1 / save file offset which points to the char to 

/ be transferred to user 
inc *u.fofp / increment file offset to point to 'next' char in 

/ memory file 
movb (rl),r1 / get character from memory file, put it in r1 
jsr rO, passe / move this character to the next byte of the 

/ users core area 
rraera / continue 



1: 
rcrd: 



dskr: 



1: 



2: 



br 

jmp 

mov 

jsr 

mov 

sub 

bios 

emp 

bhis 

mov 

jsr 

jsr 

jsr 

movb 

dec 
bne 
tst 
bne 
br 



error /see 'error' routine 



(sp),r1 / i-number in r1 

rO,iget / get i-node (r1 ) into i-node section of core 

i.size,r2 / file size in bytes in r2 

*u.fofp,r2 / subtract file offset 

ret 

r2,u. count / are enough bytes left in file to carry out read 

1f 

r2,u. count / no, just read to end of file 

rO,mget / returns physical block number of block in file 

/ where offset points 
rO,dskrd / read in block, r5 points to 1st word of data in 

/ buffer 
rO, si or eg 

(r2)+,(rl)+ / move data from buffer into working core 

/ starting at u.base 
r3 

2b / branch until proper number of bytes are transferred 
u. count / all bytes read off disk 
dskr 
ret 



passe: 



movb r1,*u.base / move a character to the next byte of the 

/ users buffer 
inc u.base / increment the pointer to point to the next byte 
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inc 
dec 
bne 
mov 



UNIX IMPLEMENTATION 



/ in users buffer 
u.nread / increment the number of bytes read 
u. count / decrement the number of bytes to be read 
1f / any more bytes to read?; yes, branch 
(sp)+,rO / no, do a non-local return to the caller of 
/ 'readi* by^ 



ret: / (1) pop the return address off the stack into rO 

mov (sp)+,r1 / (2) pop the i-number off the stack into r1 

1: 

clr *$ps / clear processor status 

rts rO / return to address currently on top of stack 



writei: 



1: 



1 j 



/ 
wtty: 



1: 



clr u.nread / clear the number of bytes transmitted during 

/ read or write calls 

tst u. count / test the byte count specified by the user 

bgt 1f / any bytes to output; yes, branch 

rts rO / no, return - no writing to do 

mov r1 ,-(sp) / save the i-node number on the stack 

cmp r1,$40. / does the i-node number indicate a special file? 

bgt dskw / no, branch to standard file output 

asl r1 / yes, calculate the index into the special file 

jmp *1f-2(rl) / jump table and jump to the appropriate routine 

wtty / tty 

wppt / ppt 

wmem / mem 

wrfO / rfO 

wrkO / rkO 

wtap / tapO 

wtap / tapl 

wtap / tap2 

wtap / tap3 

wtap / tap4 

wtap / tap5 

wtap / tap6 

wtap / tap7 

xmtt / ttyO 

xmtt / ttyl 

xmtt / tty2 

smtt / tty3 

xmtt / tty4 

xmtt / tty 5 

xmtt / tty6 

xmtt / tty7 
wlpr / lpr 

jsr rO,cpass / get next character from user buffer area; if 

/ none go to return address in syswrite 

tst r1 / is character = null 

beq wtty / yes, get next character 



mov $240,*$ps / no, set processor priority to five 
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2: 



cmpb cc+1,$:0. / is character count for console tty greater 

/ than 20 
bhis 2f / yes; branch to put process to sleep 
jsr r0,putc; 1 / find place in freelist to assign to console 

/ tty and 
br 2f / place character in list; if none available 
/ branch to put process to sleep 
jsr r0,startty / attempt to output character on tty 
br wtty 

mov r1,-(sp) / place character on stack 

jsr rO, sleep; 1 / put process to sleep 

mov (sp)+,r1 / remove character from stack 

br 1b / try again to place character in clist and output 



wppt: 



/wlpri 

/ 

/ 

/ 

/ 

/ 

/ 

/It 

/ 

/ 



jsr 

jsr 
br 



jsr 

cmp 
bio 
cmp 
bhi 
sub 

jsr 
br 



r0,cpass / get next character from user buffer area, 

/ if none return to writei's calling routine 
r0,pptoc / output character on ppt 
wppt 



r0,cpass 
r0,$ a 
1f 

r1,$'z 
1f 
$40, r1 



rO , lptoc 
wlpr 



wmem: / transfer characters from a user area of core to memory file 

jsr r0,cpass / get next character from users area of core and 

/ put it in r1 
mov r1 ,-(sp) / put character on the stack 
mov *u.fofp,r1 / save file offset in r1 
inc *u.fofp / increment file offset to point to next available 

/ location in file 
movb (sp)+,(rl) / pop char off stack, put in memory loc assigned 

/ to it 
br wmem / continue 
1: 

jmp error / ? 

dskw: / write routine for non-special files 

mov (sp),r1 / get an i-node number from the stack into r1 

jsr r0,iget / write i-node out (if modified), read i-node 'r1 ' 

/ into i-node area of core 
mov *u.fofp,r2 / put the file offset [(u.off ) or the offset in 

/ the fsp entry for this file] in r2 
add u,count,r2 / no. of bytes to be written + file offset is 

/ put in r2 
cmp r2,i«size / is this greater than the present size of 

/ the file? 
bios 1f / no, branch 



Issue D Date 3/17/72 



ID IMO.1-1 



Section E.6 Page 4 



UNIX IMPLEMENTATION 



1: 



2: / 
/ 



3: 



mov r2,i.size / yes, increase the file size to file offset + 

/ no. of data bytes 
jsr rO,setimod / set imod=1 (i.e., core inode has been 

/ modified), stuff time of modification into 

/ core image of i-node 

jsr rO,mget / get the block no. in which to write the next data 

/ byte 
bit *u.fofp,$777 / test the lower 9 bits of the file offset 
bne 2f / if its non-zero, branch; if zero, file offset = 0, 

/ 512, 1024,... (i.e., start of new block) 
cmp u. count, $51 2. / if zero, is there enough data to fill an 

/ entire block? (i.e., no. of 
bhls 3f / bytes to be written greater than 512.? Yes, branch. 
/ Don't have to read block 
in as no past info, is to be saved (the entire block will be 
overwritten). , , 

jsr r0,dskrd / no, must retain old info.. Hence, read block r1 

/ into an I/O buffer 

jsr r0,wslot / set write and inhibit bits in I/O queue, proc. 

/ status=0, r5 points to 1st word of data 
jsr r0,sioreg / r3 = no. of bytes of data, r1 = address of data, 

/ r2 points to location in buffer in which to 

/ start writing data 

movb (rl)+,(r2)+ / transfer a byte of data to the I/O buffer 

dec r3 / decrement no. of bytes to be written 

bne 2b / have all bytes been transferred? No, branch 

jsr r0,dskwr / yes, write the block and the i-node 

tst u. count / any more data to write? 

bne 1b / yes, branch 

jmp ret / no, return to the caller via 'ret' 

cpass: / get next character from user area of core and put it in rl 

tst u. count / have all the characters been transferred (i.e., 

/ u. count, # of chars, left 
beq 1f / to be transferred = 0?) yes, branch 
dec u. count / no, decrement u. count 
movb *u.base,r1 / take the character pointed to by u.base and 

/ put it in r1 
inc u.nread / increment no. of bytes transferred 
inc u.base / increment the buffer address to point to the 
rts rO / next byte 



2: 



1: 



sioreg: 



mov (sp)+,r0 / put return address of calling routine into rO 

mov (sp)+,r1 / i-number in r1 

rts rO / non-local return 

mov *u.fofp,r2 / file offset (in bytes) is moved to r2 

mov r2,r3 / and also to r3 

bis $1 77000, r3 / set bits 9,..., 15. of file offset in r3 

bic $!777,r2 / calculate file offset mod 512. 

add r5,r2 / r2 now points to 1st byte in system buffer where 
/ data is to be placed 
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2: 



mov u.base,r1 / address of data is in r1 

neg r3 / 512 - file offset (mod512.) in r3 (i.e., the number 

/ of free bytes in the file block 
cmp r3,u. count / compare this with the number of data bytes to 

/ be written to the file 
bios 2f / if less than branch. Use the number of free bytes 

/ in the file block as the number to be written 
mov u. count, f3 / if greater than* use the number of data bytes 

/ as the number to be written 

add r3,u.nread / r3 + number of bytes xmitted during write is 

/ put into u.nread 
sub r3,u. count / u. count = no. of bytes that still must be 

/ written or read 
add r3 ,u.base / u.base points to the 1 st of the remaining data 

/ bytes 
add r3,*u.fofp / new file offset = number of bytes done + old 

/ file offset 
rts rO 
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UNIX IMPLEMENTATION 



canon: 



1: 



mov 
add 
mov 

clr 

jsr 

jsr 

jsr 

cmp 
beq 
movb 

inc 
inc 
crop 
beq 
cmp 
bhis 
br 
/ get here 
/has been 
mov 
add 
mov 
tst 
rts 



r5,r1 / move tty buffer address to r1 
$10., r1 / add 10 to get start of data 
r1,4(r5) / canp = 10(r5) / move buffer a Idr + 10 to 3rd 

/ word in buffer (char, pointer) 
2(r5) / ncan / clear 2nd word in buffer, char, count 

r0,*(r0) / jump to arg get char off Q of characters, sleep 
/ if none 

r0,cesc; 100 / test for § (kill line) 

br canon / character was @ so start over 

r0,cesc; 43 / test for # (erase last char, typed) 

br 1b / character was #, go back 

rj),$4 / is char eot? 

1f / yes. reset and return 

r1,*4(r5) / no, move char to address in 3rd word of buffer 
/ (char, pointer) 

2(r5) / increment 2nd word (char, count) 

4(r5) / increment 3rd word (char, pointer) 

r1 ,$*\n / is char = newline 

1f / yes, 1f 

2(r5),$120. / is byte count greater than or equal to 120 

1f / yes, 1f 

1b / no, get another char off the Q 
if line is full, a new line has been received or an eot 
received 

r5,r1 / move buffer address to r1 

$10., r1 / add 10 

r1,4(r5) / canp = 10(r5) / reset char pointer 

(r0)+ / skip over argument 

rO / return 



cesc: / test 
cmp 
bne 
tst 
beq 
dec 
dec 
cmpb 
bne 

1: 

tst 

2: 

rts 

ttych: / get 
mov 
jsr 



for erase or kill char 
r1,(r0)+ / char in r1 = 
1f / no, skip return 



erase or kill character? 



2(r5) / yes, is 
2f / yes, don't 



char, count 
skip return 



2(r5) / no, decrement char count 
4(r5) / decrement character pointer 
*4(r5),$'\\/ was previous character a 
2f / no, don't skip 

(r0)+ / yes, skip 



Y 



ii / 



clr 
rts 

list is 



rO / return 

characters from Q of characters inputted ^fc®- tty 
$240,*$ps / set processor priority to 5 
r0,getc; / takes char, off clist and puts it in r1 
br 1f / list is empty, go to sleep 
*$ps / clear process priority 
rO / return 

empty 
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mov r5,-(sp) / save r5 

jsr rO, sleep; / put process to sleep in input wait channel 

mov (sp)+,r5 / restore r5 

br ttych / try again 

pptic: / paper tape input control 

mov $240,*$ps / set processor priority to five 

cmpb cc+2,$30. / is character count for paper tape input in 

/ clist greater than or equal to 30 
bhis 1f / yes, branch 
bit *$prs, $104200 / is there either an error, an unread char 

/ in buffer, or reader busy 
bne 1f / yes, don't enable reader 
inc *$prs / set reader enable bit 

jsr r0,getc; 2 / get next character in clist for ppt input and 
br 1f / place in r1 ; if no char in clist for ppt input 

/ branch 
tst (r0)+ / pop stack so that return will be four locations past 

/ subroutine call 

clr *$ps / set process priority equal to zero 
rts rO / return 

1 1 

cmpb pptiflg,$6 / does pptiflg indicate file "not closed" 
beq 2b / yes, return to calling routine at instruction 

/ immediately following jsr 
jsr rO, sleep; 2 / no, all characters to be read in not yet in 

/ clist, put process to sleep 
br pptic 

pptoc: / paper tape output control 

mov $240,*$ps / set processor priority to five 

cmpb cc+3,$50. / is character count for paper tape output in 

/clist greater than or equal to 50 
bhis 1f / yes 

jsr r0,putc; 3 / find place in freelist to assign ppt output 

/ and place 
br 1f / character in list; if none available branch to put 
/ process to sleep 
jsr r0,starppt / try to output character 
clr *$ps / clear processor priority 
rts rO / return 



2: 



1: 



mov r1,-(sp) / place character on stack 

jsr rO, sleep; 3 / put process to sleep 

mov (sp)+,r1 / place character in r1 

br pptoc / try again to place character in clist and output 



/lptoc: / line printer output control 

/ mov $240,*$ps / set processor priority to five 

/ cmpb cc+5,$200. / is character count for printer greater than or 

/ equal to 200 
/ bhis 1f / yes 
/ jsr r0,putc; 5 / find place in freelist to assign to printer 

/ and place 
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/ 


jsr 


/ 


clr 


/ 


rts 


/I* 




/ 


mov 


/ 


jsr 


/ 


mov 


/ 


br 


getc: 


/ get i 




mov 




jsr 




decb 




mov 




jsr 




movb 



rts 



br 1f / char in list, if none available branch to put 

/ process to sleep 
rO,starlpt / try to output character 
*$ps / set processor priority = 
rO / return 

r1,-(sp) / place character on stack 
rO, sleep; 5 / put process to sleep 
(sp)+,r1 / place character on stack 
lptoc 

character off character list 
(r0)+,r1 / put argument in getc call in r1 (char list id) 
rO,get 

br If / empty char list return 
cc(rl) / decrement number of char in char list 
$-1 ,r1 / load minus 1 in r1 
rO,put / put char back on free list 
clist-2(r2) ,r1 / put char in r1 
(r0)+ / bump rO for non blank char list return 

rO 



putc: 



1: 



mov r1,-(sp) / save char on stack 
mov $-1 ,r1 / put free list list id in r1 
jsr rO,get / take char off free list / clist slot taken 
/ identified by r2 
br 1f / branch when no chars in free list 
mov (r0) + ,r1 / put putc call arg in r1 (i.e., list identifier) 
incb cc(rl) / increment character count for list (r1 ) 
jsr rO,put / put clist entry on list 
movb (sp) ,clist-2(r2) / put character in new entry 

tst (r0)+ 
mov (sp)+,r1 
rts rO 



get: 



1: 



2: 



movb 

beq 

tst 

cmpb 

beq 

bic 

asl 

movb 

br 

clrb 
clrb 
bic 
asl 



rts 
Issue D Date 



cf+l(rl),r2 / move current first char offset to r2 

2f / no characters in char list 

(r0) + / bump rO, second return 

r2,cl+l(rl) / r2 equal to last char offset 

1f / yes, (i.e., entire char list scanned), branch to 1f 

$!377,r2 / clear bits 8-15 in r2 

r2 / multiply r2 by 2 to get offset in clist 

clist-1 (r2) ,cf+1 (r1 ) / move next char in list pointer to 

/ first char offset ptr 
2f 

cf+1 (r1 ) / clear first char clist offset 
cl+1 (r1 ) / clear last char clist offset 
$!377,r2 / zero top half of r2 
r2 / multiply r2 by 2 



rO 
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put: 



u 



1: 
2: 



asr -rO- / divide r2 by 2; r2 is offset in clist 

mov r2,-(sp) / save r2 on stack 

movb cl+l(n),r2 / move offset of last char in list (r1 ) into r2 

beq if / offset = then go to 1f (i.e., start a new list) 

bic $!377 t r2 / zero top half of r2 

asl r2 / multiply offset by 2, r2 now has offset in clist 

movb (sp),cllst-1 (r2) / link new list entry to current last 

/ entry in list (r1 ) 

br 2f 

movb (sp),cf+1 (r1 ) / put new list entry offset into first char 

/ offset of list (r1 ) 

mov (sp)+,r2 / pop stack into r2; offset of new list 

/ entry in r2 
movb r2,cl+l(n) / make new list entry the last entry in list 

/ (n) 
asl r2 / multiply r2 by 2; r2 has clist offset for new 

/ list entry 
rts rO 



lopen: / open 
tst 
bit 
jsr 
cmp 
bgt 
mov 
asl 
jmp 

1: 

otty 
oppt 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 
error 



file whose i -number is in r1 
r1 / write or read access? 
2f / write, go to 2f 

rO, access; 2 / get inode into core with read access 
r1 ,$40. / is it a special file 
3f / no. 3f 

r1,-(sp) / yes, figure out 
r1 
*1f-2(rl) / which one and transfer to it 

/ tty 
/ PPt 
/ mem 
/ rfO 
/ rkO 
/ tapO 
/ tapl 
/ tap2 
/ tap3 
/ tap4 
/ tap5 
/ tap6 
/ tap7 
/ ttyO 
/ ttyl 
/ tty2 
/ tty3 
/ tty4 
/ tty5 
/ tty6 
/ tty7 
/ crd 
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2: / check open write access 

neg r1 / make inode number positive 



1 : 



/ 



neg 
jsr 
bit 
bne 
cmp 
bgt 
mov 
asl 
jmp 



otty 

leadr 

sret 

sret 

sret / 

sret 

sret 

sret 

sret 

sret 

sret 

sret 

Bret 

ocvt 

ocvt 

ocvt 

ocvt 

ocvt 

ocvt 

ocvt 

ocvt 



ejec / lpr 



rO, access; 1 / get inode in core 
$40000, i. figs / is it a directory? 
2f / yes, transfer (error) 
r1,$40. / no, is it a special file? 
3f / no. return 
ri ,-(sp) / yes 
r1 

*1f-2(rl) / figure out which special file it is 
/ and transfer 

/ tty 
/ PPt 
/ mem 
/ rfO 
rkO 

/ tapO 
/ tapl 
/ tap2 
/ tap3 
/ tap4 
/ tap5 
/ tap6 
/ tap7 
/ ttyO 
/ ttyl 
/ tty2 
/ tty3 
/ tty4 
/ tty5 
/ tty6 
/ tty7 



otty: / open console tty for reading or writing 

mov $l00,*$tks / set interrupt enable bit (zero others) in 

/ reader status reg 
mov $100,*$tps / set interrupt enable bit (zero others) in 

/ punch status reg 
mov tty+[ntty*8]-8+6,r5 / r5 points to the header of the 

/ console tty buffer 
incb (r5) / increment the count of processes that opened the 

/ console tty 
tst u.ttyp / is there a process control tty (i.e., has a tty 

/ buffer header 
bne sret / address been loaded into u.ttyp yet)? Yes, branch 
mov r5, u.ttyp / no, make the console tty the process control 

/ tty 
br sret / ? 



sret: 



3: 



clr *$ps / set processor priority to zero 
mov (sp)+,r1 /pop stack to r1 



rts rO 
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oppt: / open paper tape for reading or writing 

mov $100,*$prs / set reader interrupt enable bit 
tstb pptiflg / is file already open 
bne 2f / yes, branch 

1: 

mov $240,*$ps / no, set processor priority to 5 

jsr rO,getc; 2 / remove all entries in clist 

br .+4 / for paper tape input and place in free list 

br 1b 

movb $2, pptiflg / set pptiflg to indicate file just open 

movb $10.,toutt+1 / place 10 in paper tape input tout entry 

br sret 
2: 

jmp error / file already open 

iclose: / close file whose i-number is in r1 
tst r1 / test i-number 
bit 2f / if neg., branch 
cmp r1,$40. / is it a special file 
bgt 3b / no, return 
mov r1,-(sp) / yes, save r1 on stack 
-- 1 r1 

*1f-2(r1) / compute jump address and transfer 



asl 

jmp 



ctty / tty 

cppt / ppt 

sret / mem 

sret / rfO 

sret / rkO 

sret / tapO 

sret / tapl 

sret / tap2 

sret / tap3 

sret / tap4 

sret / tap5 

sret / tap6 

sret / tap7 

ccvt / ttyO 

ccvt / ttyl 

ccvt / tty2 

ccvt / tty3 

ccvt / tty4 

ccvt / tty5 

ccvt / tty6 

ccvt / tty7 

error / crd 

2: / negative i-number 

neg r1 / make it positive 

cmp r1,$40. / is it a special file 

bgt 3b / no. return 

mov r1 ,-(sp) 

asl r1 / yes. compute jump address and transfer 

jmp *1f-2(r1) 
1: 
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/ 



ctty 

leadr 

sret 

sret 

sret 

sret 

sret 

sret 

sret 

sret 

sret 

sret 

sret 

ccvt 

ccvt 

ccvt 

ccvt 

ccvt 

ccvt 

ccvt 

ccvt 

ejec / 



/ tty 
/ PPt 
/ mem 
/ rfO 
/ rkO 
/ tapO 
/ tapl 
/ tap2 
/ tap3 
/ tap4 
/ tap5 
/ tap6 
/ tap7 
/ ttyO 
/ ttyl 
/ tty2 
/ tty3 
/ tty4 
/ tty5 
/ tty6 
/ tty7 
Ipr 



ctty: / close console tty 

mov tty+[ntty*8]-8+6,r5 / point r5 to the console tty buffer 
decb (r5) / dec number of processes using console tty 
br sret / return via sret 

cppt: / close paper tape 

clrb pptiflg / set pptiflg to indicate file not open 



1: 



mov 
jsr 



br 



$240,*$ps / set process or priority to 5 

rO,getc; 2 / remove all ppt input entries from clist 

/ and assign to free list 
br sret 
1b 



/ejec: 




/ 


mov 


/ 


mov 


/ 


jsr 


/ 


br 



$100,*$lps / set line printer interrupt enable bit 
$14 f r1 / 'form feed' character in r1 (new page). 
rO,lptoc / space the printer to a new page 
sret / return to caller via 'sret* 

leadr: / produce paper tape leader 

mov $100,*$pps / set paper tape punch interrupt enable 
mov $lOO.,-(sp) / 101* characters of 'nul' will be output as 

/ leader 

1: 

clr r1 / rl contains a 'nul' character 

jsr r0,pptoc / output the 'nul' character 

dec ( sp ) 

bge 1b / last leader character output? no, branch 

tst (sp)+ / bump stack pointer 

br sret / return to caller via 'sret' 

sysmount: / mount file system; args special; name 
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1: 



jsr 
tst 
bne 
jsr 
mov 

mov 
jsr 

mov 

tstb 

bne 
mov 
movb 

mov 
bis 
jsr 

tstb 

bne 

br 



UNIX IMPLEMENTATION 



r0,arg2 / get arguments special and name 

mnti / is the i-number of the cross device file zero? 

errora / no, error 

rO,getspl / get special files device number in r1 

(sp)+, u.namep / put the name of file to be placed on the 

/ device 
r1 ,— (sp) / save the device number 
rO,namei / get the i-number of the file 
br errora 
r1 ,mnti / put it in mnti 

sb1 +1 / is 15th bit of I/O queue entry for dismountable 

/ device set? 
1b / (inhibit bit) yes, skip writing 
(sp),mntd / no, put the device number in mntd 
(sp),sb1 / put the device number in the lower byte of the 

/ I/O queue entry 
(sp)+,cdev / put device number in cdev 
$2000, sb1 / set the read bit . 

r0,ppoke / read in entire file system 3ey<* i>/e>ct: 



sbl+1 / done reading? 
1b / no, wait 
sysreta / yes 



sysumount: / special dismount file system 

jsr r0,arg; u.namep / point u.namep to special 

jsr r0,getspl / get the device number in r1 

cmp r1 ,mntd / is it equal to the last device mounted? 

bne errora / no error 

It 

tstb sb1+1 / yes, is the device still doing I/O (inhibit 

/ bit net)? 

bne 1b / yes, wait 

clr mntd /no, clear these 

clr mnti 

br sysreta / return 

getspl: / get device number from a special file name 

jsr ,r0,namei / get the i-number of the special file 

br errora / no such file 
sub $4,r1 / i-number-4 rk=1 ,tap=2+n 
ble errora / less than 0? yes, error 
cmp r1 ,$9. / greater than 9 tap 7 
bgt errora / yes, error 
rts rO / return with device number in r1 



errora: 



jmp error /see 'error* routine 



sysreta; 



jmp sysret / see 'sysret' routine 
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/ u8 — unlx 

rtap: / read from the dec tape 

asr r1 / divide the i-number by 2 

sub $4.,r1 / (i-number/2)-4 r1 

mov r1 ,cdev / cdev now has device number 

jsr rO, bread; 578. / read in block thats in *u.fofp 



wtap: 



asr r1 / divide i-number by 2 
sub $4.,r1 / r1 = i-number minus 4 
mov r1 ,cdev / this is used as the device number 
jsr rO.bwrite; 578. / write block (u.fofp) on dec tape 

/ Maximum 



rrkO : 



mov $1 ,cdev / set current device to i., disk 
jsr rO, bread; 4872. / read block from disk (maximum block 

/ number allowed on evice is 4872.) 
/ - (u.fofp) contains block number 



wrkO: 



rrfO: 



mov $1 , cdev / set current device to 1 ; disk 

jsr rO,bwrite; 4872. / write block (u.fofp) on disk 

clr cdev / set current device to 0., fixed head disk 

jsr rO, bread; 1024. / read block (u.fofp) from fixed head 

/ disk (max. block number allowed on 

/ device is 1024.) 



wrfO: 



bread; 



1: 



1: 



clr cdev / set current device to 0., fixed head disk 
jsr rO,bwrite; 1024. / write block (u.fofp)' on fixed head 

/ disk 

/ read a block from a block structured device 
jsr rO,tstdeve / error on special file I/O (only works on 

/ tape) 
mov ♦u.fofp ,r1 / move^block number to r1 
mov $2.-cold,-(sp) / **2-cold" to stack 

cmp r1 f (r0) / is this block # greater than or equal to 

/ maximum block # allowed on device 

bhis 1f / yes, 1f (error) 

mov r1,-(sp) / no, put block # on stack 

jsr rO,preread / read in the block into an I/O buffer 

mov (sp)+,r1 / return block # to r1 

inc rl / bump block # to next consecutive block 

dec (sp) / "2-1-cold" on stack 

bgt 1b / 2-1-cold = 0? No, go back and read in next block 

tst (sp)+ / yes, pop stack to clear off cold calculation 
mov *u.fofp,r1 / restore r1 to initial value of the 

/ block # 
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1: 



cmp r1,(r0)+ / block # greater than or equal to maximum 

/ block number allowed 

bhis err or 10 / yes, error 

inc *u.fofp / no, *u.fofp han next block number 

jsr rO,preread / read In the block whose number is in rl 

bis $40000, (r5) / set bit 14 of the 1st word of the I/O 

/ buffer 

bit $22000, (r5) / are 10th and 13th bits set (read bits) 

beq 1f / no 

cmp cdev,$1 / disk or drum? 

ble 2f / yes 

tstb uquant / is the time quantum = 0? 

bne 2f / no, 2f 

mov r5,-(sp) / yes, save r5 (buffer address) 

jsr rO, sleep; 31. / put process to sleep in channel 31 (tape) 

mov (sp)+,r5 / restore r5 

br 1b / go back 



2: / drum or disk 

jsr r0,idle; s.wait+2 / wait 

br 1b 
1 : / 1 0th and 1 3th bits not set 

bic $40000, (r5) / clear bit 14 

jsr r0,tstdeve / test device for error (tape) 

add $8,r5 / r5 points to data in I/O buffer 

jsr r0,dioreg / do bookkeeping on u. count etc. 
1 : / r5 points to beginning of data in I/O buffer, r2 points to beginning 
/ of users data 

movb (r5)+,(r2)+ / move data from the I/O buffer 

dec r3 / to the user's area in core starting at u.base 

tst u. count / done 

beq 1f / yes, return 

tst -(r0) / no, point rO to the argument again 

br bread / read some more 

1: 

mov (sp)+,r0 / jump to routine that called readi 

jmp ret 

bwrite: / write on block structured device 

jsr r0,tstdeve / test the device for an error 

mov *u.fofp,r1 / put the block number in r1 

cmp r1,(r0)+ / does block number exceed maximum allowable # 

bhis error 10 / yes, error 

inc *u.fofp / no, increment block number 

jsr r0,wslot / get an I/O buffer to write into 

jsr r0,dioreg / do the necessary bookkeeping 

points to the users data; r5 points to the I/O buffers data area 

movb (r2)+,(r5)+ / ; r3, has the byte count 

dec r3 / area to the I/O buffer 

bne 1b 

jsr r0,dskwr / write it out on the device 

tst u. count / done 

beq 1f / yes, 1f 

tst -(rO) / no, point rO to the argument of the call 

br bwrite / go back and write next block 



1: / r2 



1 : 
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tstdeve 



1: 

errorlO; 
dioreg: 

1i 



prereadj 



1: 



dskrd: 



1 : 



1: 



wslot: 



mov (sp)+,rO / return to routine that called writei 
jmp ret 

: / check whether permanent error has occured on special file 

/ I/O 
mov cdev,r1 / only works on tape; r1 has device # 
tstb deverr(rt) / test error bit of device 
bne 1f / error 
rts rO / device okay 

clrb deverr(rl) / clear error 



jmp error / see 'error* routine 



mov u. count, r3 / move char count to r3 

cmp r3,$512. / more than 512. char? 

bios 1f / no, branch 

mov $512.,r3 / yes, just take 512. 

mov u.base,r2 / put users base in r2 

add r3,u.nread / add the number to be read to u.nread 

sub r3 ,u. count / update count 

add r3,u.base / update base 

rts rO / return 

» 

jsr rO,bufaloc / get a free I/O buffer (r1 has block number) 

br 1f / branch if block already in a I/O buffer 

bis $2000, (r5) / set read bit (bit 100 in I/O buffer) 

jsr r0,poke / perform the read 

clr *$ps / ps = 

rts rO 

jsr r0,bufaloc / shuffle off to bufaloc; get a free I/O buffer 

br 1f 

bis $2000, (r5) / set bit 10 of word 1 of I/O queue entry 

/ for buffer 

jsr r0,poke / just assigned in bufaloc; bit 10=1 says read 

clr *$ps 

bit $22000, (r5) / if either bits 10, or 13 are 1; jump to idle 

beq 1f 

jsr rO,idle; s.wait+2 

br 1b 

add $8,r5 / r5 points to first word of data in block just read 

/ in 

rts rO 



jsr 
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bit $22000, (r5) / check bits 10, 13 (read, waiting to react) 

/ of I/O queue entry 
beq 1f / branch if 10, 13 zero (i.e., not reading, or waiting 

/ to read) 
jsr r0,idle; s.wait+2 / if buffer is reading or writing to read, 

/ idle 
br 1b / till finished 

bis $101000, (r5) / set bits 9, 15 in 1st word of I/O queue 

/ (write, inhibit bits) 
clr *$ps / clear processor status 
add $8,r5 / r5 points to first word in data area for this 

/ block 
rt .■; rO 



dskwrt 



bic $1 00000, *bufp / clear bit 15 of I/O queue entry at 

/ bottom of queue 



ppoke : 



mov 
jsr 
clr 
rts 



$340,*$ps 
r0,poke 
*$ps 
rO 



poke: 



1: 



3: 



mov 
mov 
mov 
mov 



mov 
bit 

beq 

bit 

bne 

movb 

tstb 

beq 

mov 

clrb 

br 

cmpb 

bit 

bgt 

bit 
bne 
bis 
mov 
mov 
mov 



r1,-(sp) 
r2,-(sp) 
r3,-(sp) 
$buf p+nbuf +nbuf + 6 , r 2 



/ r2 points to highest priority I/O 
/ queue pointer 



-(r2),r1 / 
$3000, (rl) 



r1 points to an I/O queue entry 

/ test bits 9 and 10 of word 1 of I/O queue 

/ entry 

2f / branch to 2f if both are clear 

$1 30000, (rl) / test bits 12, 13, and 15 

2f / branch if any are set 

(rl),r3 / get device id 

deverr(r3) / test for errors on this device 

3f / branch if no errors 

$-1,2(rl) / destroy associativity 

1 (r1 ) / do not do I/O 

2f 

r3,$1 / device id = 1 ; device is disk 

prf / device id = 0; device is drum 

ptc / device id greater than or equal to 1; device is 

/ dec tape 
$2, active / test disk busy bit 
2f / branch if bit is set 
$2, active / set disk busy bit 

r1,rkap / rkap points to current I/O queue entry for disk 
2(rl),mq / put physical block number in mq 
$12.,div / divide physical block number by 12* 
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mov 

mov 

mov 

bis 
br 
prf : / drum 
bit 
bne 
bis 
mov 
mov 
clr 
movb 

clr 
movb 

mov 



3j 



mov 
mov 
mov 
mov 

bit 

beg 
mov 



3: 



$rkda+2,r3 / 

ac,-(sp) / put remainder from divide on stack; gives 

/ sector number 
$4,1 sh / shift quotient 4 bits, to align with cyl and surf 

/ bits in rkda 
mq,(sp) / or mq with sector; gives total disk address 
3f 

$1 , active / test drum busy bit 

2f / branch if bit is set 

$1 , active / set drum busy bit 

r1 ,rfap / rfap points to current I/O queue entry for drum 

$dae+2,r3 

-Up) 

2(rl),l(sp) / move low byte of physical block number into 

/ high byte of stack 
-(sp) / word 
3(rl),(sp) / move high byte of physical block number into 

/ low byte of stack 
(sp)+,-(r3) / load dae with high byt of physical block 

/ number 

(sp)+,-(r3) / load rkda register; load dar register 

6(rl),-(r3) / load bus address register 

4(rl),-(r3) / load word count register 

$103,-(sp) / 103 indicates write operation when loaded 

/ in csr 
$2000, (n) / if bit 10 of word 1 of I/O queue entry is 

/ a one 
3f / then read operation is indicated 
$105, (sp) / 105 Indicates read operation 



mov 
br 
ptc: / tape I/O 

bit $4, active 

bne 

mov 

swab 

bic 

add 

cmpb 

beq 

movb 



(sp)+,-(r3) / load csr with interrupt enabled, command, go 
seta 



2f 

teem, r 3 

r3 

$!7,r3 

$2,r3 

r3,(rl) 

3f 

$1 ,tccm / stop transport if not same unit 



bis $4, active 

mov r1 ,tcap 

mov $20.,tcerrc 

mov $tape1 , testate 

movb (r1),r3 / device 

sub $2,r3 / now unit 

swab r3 

bis $103,r3 / now rbn,for,unit,ie 

mov r3,tccm 
seta: / 1/0 queue bookkeeping; set read/write waiting bits* 

mov (rl) t r3 / move word 1 of I/O queue entry into r3 
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2: 



bic $!3000,r3 / clear all bits except 9 and 10 

bic $3000, (rl) / clear only bits 9 and 10 

rol r3 

rol r3 

rol r3 

bis r3,(rl) / or old value of bits 9 and 10 with bits 12 

/ and 13 

cmp r2,$bufp / test to see if entire I/O queue has been 

/ scanned 

bhi 1b 

mov (sp)+,r3 

mov (sp)+,r2 

mov (sp)+,r1 

rts rO 



bufaloc: 



1: 



2: 



3: 



3: 



2: 
1: 



mov r2,-(sp) / save r2 on stack 

mov $340,*$ps / set processor priority to 7 

clr -(sp) / vacant buffer 

mov $bufp,r2 / bufp contains pointers to I/O queue entrys 

/ in buffer area 

mov (r2)+,r5 / move pointer to word 1 of an I/O queue entry 

/ into r5 
bit $173000, (r5) / lock+keep+active+outstanding 
bne 3f / branch when any of bits 9,10,12,13,14,15 are set 

/ (i.e., buffer busy) 
mov r2,(sp) / save pointer to last non-busy buffer found 

/ points to word 2 of I/O queue entry) 

cmpb (r5),cdev / is device in I/O queue entry same as current 

/ device 
bne 3f 
cmp 2(r5),r1 / is block number in I/O queue entry, same as 

/ current block number 
bne 3£ 

tst (sp)+ / bump stack pointer 
br 1f / use this buffer 

cmp r2 , $buf p+nbuf +nbuf 

bio 2b / go to 2b if r2 less than bufp+nbuf+nbuf (all 

/ buffers not checked) 
mov (sp)+,r2 / once all bufs are examined move pointer to 

/ last free block 
bne 2f / if (sp) is non zero, i.e., if a free buffer is 

/ found branch to 2f 
jsr rO,idle; s.wait+2 / idle if no free buffers 
br lb 

tst (r0)+ / skip if warmed over buffer 

mov — (r2),r5 /put pointer to word 1 of I/O queue entry in r5 
movb cdev.(r5) / put current device number in I/O queue entry 
mov r1,2(r5) / move block number into word 2 of i/O queue 
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1: 



1 : 



/ entry 

cmp r2,$bufp / bump all entry s in bufp and put latest assigned 

bios 1f / buffer on the top (this makes if the lowest priority) 

mov -(r2),2(r2) / job for a particular device 

br 1b 

mov r5,(r2) 

mov (sp)+,r2 / restore r2 

rts rO 

tape: / dec tape interrupt 

jsr rO,setisp / save registers and clockp on stack 
mov testate, r3 / put state of dec tape in r3 
jsr rO,trapt; teem; tcap; 4 / busy bit 

mov r3,pc / device control status register 

/ if no errors, go to device state (an address) 

taper: / dec tape error 

dec tcerrc / decrement the number of errors 

bne 1£ / if more than 1 branch 

movb I(r2),r3 / r2+1 points to command register upper byte 

bic $!7,r3 / clear all but bits 8-10 (Unit Selection) 

incb deverr+2(r3) / set error bit for this tape unit 

br tape 3 
1 : / more than 1 error 

bit $4000, (r2) / direction of tape 

beq 1f / if forward go to 1f 

bic $4000, (r2) / reverse, set to forward 

mov $tape1 , testate / put tape 1 in the state 

br Of 

1 : / put tape in reverse 

bis $4000, (r2) / set tape to reverse direction 

mov $tape2, testate / put tape 2 as the state 

bis $4, active / check active bit of tape 

movb $103, (r2) / set read function and interrupt enable 

br 4f / go to retisp 



0: 



tapel : / read bn forward 

mov $tcdt,r0 / move address of data register to rO 

cmp (r0),2(rl) / compare block addresses 

bit 0b / if 1t, keep moving 

bgt taper / if gt, reverse 

mov 6(rl),-(r0) / put bus address in tcba 

mov 4(rl),-(r0) / put word count in tewe 

mov $115,-(sp) / put end interrupt enable^ 

bit $20000, (rl) / is "waiting to read bit of I/O queue set? 

beq 1f / no, 1f 

mov $105, (sp) / yes, put and interrupt enable 

1 : 

movb (sp)+,(r2) / move function into command register (teem) 

bis $4, active / set active bit 

mov $tape3, testate / get ready for I/O transfer 

br 4f / go to retisp (rti) 



tape2: / read bn bakasswards 
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mov tcdt,rO / rO has contents of data register 

add $3,r0 / overshoot 

cmp r0,2(rl) 

bgt Ob / if gt keep reading 

br taper / else reverse 

tape3: / I/O transfer 

bic $30000, (rl) / clear bits 12 and 13 of I/O queue entry 

jsr r0,poke / do the I/O 

bit $4, active / still I sy see if pick up r-ahead, w-behind 

bne 1f / yes 

movb $1,(r2) / no, indicate too bad 



1: 



jsr r0,wakeup; runq; 31 • / wait up 
br 4f / retisp 



drum: / interrupt handler 

jsr r0,setisp / save r1,r2,r3, and clockp on the stack 
jsr r0,trapt; dcs; rfapj 1 / check for stray interrupt or 

/ error 
br 3f / no, error 
br 2f / error 



disk: 
0: 



1: 



2: 



3: 



jsr r0,setisp / save r1,r2,r3, and clockp on the stack 

jmp *$0f 

jsr r0,trapt; rkcs; rkap; 2 

br 3f / no, errors 

mov $115,(r2) / drive reset, errbit was set 

mov $1f,0b-2 / next time jmp *$0f is executed jmp will be 

/ to 1 f 

br 4f 

bit $20000, rkcs 

beq 4f / wait for seek complete 

mov $0b,0b-2 

mov rkap,r1 

bit $3000, (rl) / are bits 9 or 10 set in the 1st word of 

/ the disk buffer 

bne 3f / no, branch ignore error if outstanding 

inc r1 

asr (r1 ) 

asr (r1 ) 

asr (r1 ) / reissue request 

dec r1 

bic $30000, (rl) / clear bits 12 and 13 in 1st word of buffer 

mov ac,-(sp) 

mov mq,-(sp) / put these on the stack 

mov sc,-(sp) 

jsr rO ,poke 

mov (sp)+,sc 

mov (sp)+,mq / pop them off stack 

mov (sp)+,ac 
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4: 

jmp retisp / u4-3 

trapt: / r2 points to the 

mov (r0)+,r2 / device control register 

mov *(r0)+,r1 / transaction pointer points to buffer 

tst (sp)+ 

tstb (r2) / is ready bit of dcs set? 

bge 4b / device still active so branch 

bit (rO), active / was device busy? 

beq 4b / no, stray interrupt 

bic (r0)+, active / yes, set active to zero 

tst (r2) / test the err (bit is) of dcs 

bge 2f / if no error jump to 2f 

tst (r0)+ / skip on error 



jmp (rO) 
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/ u9 — unix 

trcv: 

jsr 
jsr 
jsr 
jsr 
jsr 
jsr 
jsr 
jsr 



1: 



3: 
4: 



5: 



3: 



mov 

mov 

mov 

mov 

mov 

sub 

asl 

mov 

mov 

tst 

bit 

tst 

beq 

bit. 

bne 

tstb 

bit 

br 

bitb 
beq 

bic 

bit 
bne 
cmp 
beq 
cmp 
bne 

mov 

beq 

movb 

jsr 

br 

cmp 
bne 
bit 
beq 
mov 



/-fat. yw* 7 '"^"V h**^* 



r0,1f 
rO , 1 f 
r0,1f 
r0,1f 
r0,1f 
r0,1f 
r0,1f 
rO,lf 

r1,-(sp) 

r2,-(so) 

r3,-(sp) 

clockp,-(sp) 

$s.syst+2,clockp 

$trcv+4,r0 / 0%4 / calculate offset for tty causing 

rO / 0%8 / this interrupt 

rcsr(r0),r2 

rcbr(r0),r1 

r2 

1f / error 

tty+6(r0) 

1f 

$40, r2 / parity 

3f / branch if set 

tty+4(r0) 

4f / 37 parity not allowed 

2f 



$100,tty+4(r0) 

2f / non-37 parity not allowed 



$(frS"rT 



? 



* 



^ 



3: 



$40,tty+4(r0) 

3f / raw 

r1,$177 

5f 

r1,$34 

3f 

tty+6(r0),r0 

2f 

r1,6(r0) / interrupt or quit 

rO,wakeall 

2f 

r1 ,$15 / or 

3f 

$20,tty+4(r0) 

3f 

$12, r1 



bitb S4,ttv+4(r0) 
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3: 



1: 
2: 

txmt: 



1: 



beq 
crop 
bio 
cmp 
bhi 
add 

movb 
jsr 

bitb 

bne 

cmp 

bne 

bitb 

beq 

cmp 

beq 

mov 

movb 

inc 

jsr 

jsr 
mov 

bitb 
bne 

cmp 

beq 

movb 

cmpb 

bio 

movb 
jsr 

jmp 



3f 

r1,$'A 
3f 

r1,$'Z 
3f 
$40, r1 

tty+3(r0),0f 

r0,putc; 0:.. / put char on input clist 

br 2f 

$10,tty+4(r0) / echo 

4f / branch echo bit set 

r1,$12 

3f 

$20,tty+4(r0) / cr 

3f 

r1,$4 / is char input an eot 

1f 

r1,-(sp) / put char on stack 

tty+3(r0),0f 

Of 

r0,putc; 0:.. / put char just input on output clist 

br .+2 

rO , starxmt 

(sp)+,r1 

$40,tty+4(r0) / raw 

1f / branch if raw bit set 

r1,$12 

tty+3^r0) t r1 
cc(r1 ),$15. 
2f 

tty+3(r0),0f 

rO f wakeup; runq; 0:.. / call wakeup for process 



retisp 



/^ ir^tfv iJtrf^il*. 



jsr 


r0,1f 


jsr 


r0,1f 


jsr 


r0,1f 


jsr 


r0,1f 


jsr 


r0,1f 


jsr 


r0,1f 


jsr 


r0,1f 


jsr 


r0,1f 


mov 


r1,-(sp) 


mov 


r2,-(sp) 


mov 


r3,-(sp) 


mov 


clockp,-(sp) 


mov 


$s.eyst+2,clockp 


sub 


$txmt+4,r0 / 0%4 / offset in cc 
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asl rO / 0%8 
jsr rO,starxmt 
jmp retisp 



xmtto: 



mpv rO , - ( sp ) 

mov 2(sp),r0 ./ 0%2+6 

sub $6,r0 

asl rO 

asl rO / 0%8 

jsr rO,starxmt 

mov (sp)+,tO 

rts rO 



starxmt: 

mov (sp),r1 / 0%8 r1 contains 8xtty number 

movb tty+3(rl),r1 / place contents of 4th byte of tty 

/ buf in r1 (cc,cf,cl offset) 
cmpb cc+1 (r1 ),$10. / is char count for tty output greater 

/ than or equal to 10 
bhi If / yes 

mov r1 ,0f / no, make offset an arg of wakeup 
inc Of / increment arg of wakeup 

jsr rO, wakeup; runq+2 ; 0:.. / wakeup process identified 

/ by wlist 
1 : / entry specified by argument in 0: 



3: 



mov 

asr 

asr 

asr 

tstb 

bne 

mov 

tstb 

bge 
movb 

clrb 

tst 

bne 

movb 

inc 

jsr 



blc 

movb 

bge 
bisb 



(sp),r1 / 0%8 / r1 contains 8xtty number 

r1 

r1 

r1 / 0561 r1 

toutt+3(r1) 



contains tty number 
/is t^ut entry for 



tty output = 



1f / no, return to calling routine 

(sp),r2 / yes, place (8xtty number) into r2 

tcsr(r2) / does tty's tcsr register =0 (is 

/ bit = 0) 
1f / yes, return to calling routine 
tty+2(r2),r1 / no, place third byte of 



ready 



tty 

after 



buf 
If) 



/ into r1 (char left over 
tty+2(r2) / clear third byte 
r1 / is third byte = 

3f / no, r1 contains a non nul character 
tty+3(r2),0f / yes, make byte 4 arg of getc 
Of / increment arg to make it tty output list of 

/ clist 
r0,getc; 0:.. / obtain next character in clist for tty 

/ out and place in r1 
br If / if no entry in clist to be output, return to 
/ calling routine 



(identified by 



$!177,r1 / zero out bits 7-15 of r1 
partab(r1 ),r3 / move "partab" entry 

/ r1 ) into r3 
3f / if entry is greater than or equal to (digit 

/ 2, far left digit = 0) branch 
200 ,r1 / if entry is less than add 128 to ASC11 
/ code for char to be output 
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3: 



3: 



r: 



bic 



mov 
bit 
beq 
mov 
cmp 
bne 
bitb 

beq 
mov 

mov 

add 
jmp 

incb 



rts 

br 

br 

br 

br 

br 



$!177,r3 / to make it teletype code and then clear 
/ bits 7-15 of r3 

(sp),r2 / r2 contains 8xtty number 

$4,rcsr(r2) /is carrier present for tty 

starxmt / no carrier flush 

r1,-(sp) ./ yes t place character to be output on stack 

r1,$11 / is character **ht" 

3f / no 

$2,tty+4(r2) / is tab to space flag tf for tt tty set 

/ (bit 1 of byte 5 in tty buffer area) 
3f / no 
$240, (sp) / yes, change character to space 

(sp)+,tcbr(r2) / place char to be output in tty output 

/ buffer „ „ 

$tty+1 ,r2 / place addr of 2nd byte of tty buf 
1f-2(r3) / area in r2 (which is the column count) and 

/ then 
(r2) / normal / jmp to location determined by digits 

/ and 1 of character's entry in partab which 

/ is now in r3 
rO / non-printing 

1f / bs -— -«. / > J , 

2f / nl (line feed) a/ a-f : ' 

3f / tab (horizontal tab) 
4f / vert (vertical tab) 
5f / cr 



2: 



3: 



decb (r2) / col decrement column count in byte 2 of tty 

/ area 
bge 1f / if count &0 return to calling routine 

clrb (r2) / col set column count = 
br 1f 

bit $1,r1 / is bit of ASC1 1 char = 1 (char = If) 

bne 2f / yes „ 

bitb $20,3(r2) / cr flag is bit 4 of 5th byte of tty 

/ area = 1 
beq 2f / no (only If to be handled) 

movb $15,1 (r2) / place "cr in 3rd byte of n ttv area 

/ (character leftover after If ) 

movb (r2),r3 / place present column count in r3 

beq 1f / return to calling routine if count = 

clrb (r2) / col clear column count 

asr r3 

asr r3 

asr r3 

asr r3 / delay = col/16 

add $3 ,r3 / start to determine tout entry for tty output 

br 2f 

bitb $2,3(r2) / is bit 1 of 5th byte of "tty" area = 1 

/ (tab to space bit set) 
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3: 



4: 
5: 



beq 3f / no 

incb (r2) / increment column count 

bitb $7,(r2) / are bits 0, 1 and 2 set at col 0%8 

beq 1f / no 

movb $11,1 (r2) / yes, place ht in another tab next time 

br 1f / 3rd byte of tty area (character left over after 
/ "if") 

movb (r2),r3 / place column count in r3 

bisb $7,(r2) / make bits 0, 1 and 2 of column count = 1 

incb (r2) / increment column count 

bis $!7,r3 / clear bits 3-15 of r3 

neg r3 / delay = dcol start to determine tout entry for 

/ tty out 

br 2f / by neg r3 

mov $176.,r3 / delay = lots start to determine tout entry 
br 2f 

mov $10.,r3 / cr delay 160ms for tn300 start to determine 

/ tout 
clrb (r2) / set column count = entry 

2: 

add $5,r3 / time for this chary increment value for tout 

/ entry by 5 ' 
mov (sp),r2 / 0%8 r2 contains 8xtty number 
asr r2 
asr r2 

asr r2 / 0%1 r2 contains tty number 

movb r3,toutt+3(r2) / place value for tout entry into tout 

/ table 

1: 

rts rO / return 

partab: / contains 3 digits for each character; digit 2. is used 
/ to determine if 200 is to added to ASC11 code digits 
/ and 1 are used to determine value for jump table. 
.byte 002,202,202,002,002,002,002,202 
.byte 204,010,006,212,012,214,202,002 
.byte 202,002,002,202,002,602,202,002 
.byte 002,202.202,002,202,002,002,202 
.byte 200 ,000 ,000 , 200 , 000 , 200 , 200 , 000 
.byte 000 , 200 , 200 , 000 , 200 ,000 ,000 , 200 
.byte 000,200,200,000,200,000,000,200 
.byte 200,000,000,200,000,200,200,000 
•byte 200,000,000,200,000,200,200,000 
.byte 000 , 200 , 200 , 000 , 200 , 000 , 000 , 200 
.byte 000,200,200,000,200,000,000,200 
.byte 200 , 00 ,000 , 200 ,000 ,200 , 200 ,000 
•byte 000 , 200 , 200 ,000 , 200 , 000 ,000 , 200 
.byte 200 ,000 ,000 , 200 , 000 , 200 , 200 ,000 
.byte 200 ,000 ,000 ,200 ,000 , 200 , 200 ,000 
.byte 000,200,200,000,200,000,000,202 

xmtt : 

Jsr r0,cpass / get next character from user buffer area 
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tst 
beq 

mov 
mov 
a si 
sub 

mov 
cmpb 

bhls 
jsr 



mov 

mov 
sub 
asl 
asl 
jsr 
mov 
br 
2: 

mov 
mov 

jsr 

mov 
br 

rcvt: / read 
sub 
asl 
asl 
mov 
mov 

tst 

bne 

bitb 

beq 

tst 

jsr 

tst 

mov 

bitb 

beq 

jsr 



r1 / is character mil 

xmtt / yes, get next character 

$240,*$ps / set processor priority equal to 5 
(sp),r2 / r2 contains i node number of file 
r2 / 0%2+28 / multiply inode number by 2 
$21.,r2 / 0%2-f7 / subtract 21 from 2x inumber to 

/ get cc, cf, cl offset 
r2,0f / make offset arg of putc 
cc(r2),$50. / is char count for device greater than 

/ or equal to 50 
2f / yes 
r0,putc; 0:.. / find location in freelist to assign to 

/ device and 
br 2f / place char in list, if none available branch 

/ to put process to sleep 
r0,-(sp) / place calling routines return address on 

/ stack 
0b,r0 / place offset into cc, cl and cf tables in rO 
$7,r0 / subtract seven from offset 
rO / multiply by 2 

rO / 0%8 / multiply by 2 (rO contains 8xtty number) 
rO,starxmt / attempt to output character 
(sp)+,r0 / pop stack 
xmtt / get next character 

r1,-(sp) / place character on stack 

Ob, Of / make offset into cc, cf , cl table arg of 

/ sleep (identifies location in wlist) 
rO, sleep; 0:.. / put process to sleep 
(sp)+,r1 / remove character from stack 
1b / try again 



tty 



3: 
2: 



jmp 
jsr 



$28., r1 / 0%2 r1 contains 2xtty number 

r1 

r1 / r1 contains 8xtty number 

r1,-(sp) 

tty+6(rl),r5 / r5 contains address of 4th word in 

/ tty area 
2(r5) / is char count = 
1f / no 

$40,tty+4(r1 ) / raw flag set? 
2f / no 

— (sp) / yes, decrement sp 
rO,rcvch / get character from clist 
(sp)+ / increment sp 
(sp)+ir2 / r2 contains 8xtty number 
$4,rcsr(r2) / is carrier detect bit on 
3f / no 
rO, passe / yes, place character in users buffer area 

ret 

rO, canon; reveh / process a line of characters in 

/ clist and place results in tty buffer 



Issue D Date 3/17/72 



ID IMO.1-1 



Section E.9 Page 6 



UNIX IMPLEMENTATION 



1: 

1: 



1: 
rcvch: 



1: 



2: 



/ area 

tst (sp)+ / increment sp 

tst 2(r5) / is char count for tty buffer = 

beq 1f / yes 

movb *4(r5),r1 / no, move character pointer to r1 

inc 4(r5) / increment character pointer 

dec 2(r5) / decrement character count 

jsr rO, passe / place character, whose address is in 

/ r1, in 

br 1b / user buffer area. Then get next character. 

jmp ret 

mov 4(sp),r2 / 0%8 r2 contains 8xtty number 

mov $4,r1 

bit r1,rcsr(r2) / is carrier detection bit on 

bne 1f / yes 

bic $1,rcsr(r2) / no, clear data terminal ready bit 

rts rO 

movb tty+3(r2),0f / make cc offset arg for "getc" 

mov $240,*$ps / set processor priority = 5 

jsr rO,getc; 0:.. / get next character off clist 

br 2f / clist empty 

clr *$ps / set processor priority = 

rts rO 

mov Ob, Of / make "getc" arg an arg for "sleep 

mov r5,-(sp) / save tty buffer address on stack 

jsr rO, sleep; 0:.. 

mov (sp)+,r5 

br rcvch 



ocvt: 



1: 



1: 



sub $28., r1 / 0%2 calculate tty table offset 

mov r1 ,r2 

asl r1 / 0%4 

asl r1 / 0%8 

mov r1,-(sp) 

add $6,r2 / calculate clist id clist offset 

movb r2,tty+3(rl) / put clist id in tty table 

mov (sp),r1 

bit $4,rcsr(rl) / carrier detect bit set 

bne 1f / if so, branch 

mov $51 1 ,rcsr (r1 ) / set ready, speed, interrupt enable, 

/ supervisor transmit 

movb tty+3(rl),0f / put clist id in sleep argument 

jsr rO, sleep; 0:.. 

br 1b 

mov tty+6(rl),r5 / put tty buffer address in r5 

tstb (r5) / first byte of tty buffer = 
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1: 



ccvt: 



1s 



bne 
mov 
mov 
movb 

incb 

tst 

tst 

bne 

mov 

br 



sub 
asl 
asl 
mov 
decb 

jmp 



1f / if not, branch 
$511 ,rcsr(r1 ) / set control 
$511 ,tcsr (r1 ) / set control 
$210,tty+4(r1 ) / put 210 in 



bits for receiver 

bits for transmitter 

tty table word 3 / set flags 



(r5) / inc first byte of tty buffer 

(sp) + 

u.ttyp / is there a process control tty 

1f / yes, then branch 

r 5, u.ttyp / no, make this tty the process control tty 

1f / return 



$28., r1 

r1 / 0%4 

r1 

tty+6(r1 ) f r5 

(r5) 

sret 
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/ ux — unix 
systro: 



UNIX IMPLEMENTATION 





. = .+2 






.:*. + 128. 




. = .+2 




.=.+64. 




8. time: .=.+4 




s.syst: .a. +4 




s.wait: .=.+4 




s.idlet: .=.+4 




s.chrgt:.=.+4 




s.drerr: .=.+2 


inode: 






i.flgs: .=.+2 




i.nlks: .=.+1 




i.uid: .=.+1 




i.size: .=.+2 




i.dskp: .=.+16. 




i.ctim: .=.+4 




i.mtim: .=.+4 




. = inode+32. 


mount : 


.=.+1024. 


proc: 






p.pid; . = .+ 


2*nprocJ 




p.dska: ♦=• + 


l2*nproc] 




p.ppid: . = .+ 


]2*nproc] 



p. break: .=.+ [2*nproc] 
p. link: .=,+nproc 
p. stat: .=.+nproc 

tty: 

. = , + [ntty*8.] 

fsp: .=.+ [nfiles*8.] 

bufp: .=.+ [nbuf*2]+6 

sbO: .=.+8 

sb1: .=.+8 

swp: .=.+8 

ii: .=.+2 

idev: .=.+2 

cdev: .=.+2 

deverr: .=.+12. 

active: .=.+2 

rfap: . = .+2 

rkap: .=.+2 

tcap: .=.+2 

testate: .=.+2 

tcerrc: .=.+2 

mnti: .=.+2 

mntd: .=.+2 

mpid: .=.+2 

clockp: .^.+2 

rootdir: .--.+2 

toutt: .=.+16.; touts: .=.+32. 

runq: .=.+6 
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wlist: .=.+40. 
cc: .=.+30. 
cf: .=.+31. 
cl: .-.+31 . 
clist: .=.+510. 
imod: .=.+1 
sraod: .=.+1 
mmod: .=.+1 
uquant: .=.+1 
sysflg: .=.+1 
pptif Ig: .=.+1 
ttyoch: .=.+1 

.even 

.=.+100.; sstack: 
buffer: .=.+ [ntty*140.] 
, = .+ [nbuf*520.] 



• = cor«-64. 
user: 

u.sp: 
u.usp: 
u.rO: 
u.cdir: 
u.fpj 
u.f ofp: 
u.dirp: 
u.namep: 
u.off : 
u.base: 
u. count: 
u.nread: 
u. break: 
u.ttyp: 
u.dirbuf : 
u.pri: 
u.intr: 
u.quit: 
u.emt: 
u.ilgins: 
u.cdev: 
u.uid: 
u.ruid: 
u.bsys: 
u. uno : 
. = core 



= .+2 

= .+2 

= .+2 
. = .+2 
,=.+10. 
. = .+2 

= .+2 

= .+2 

= .+2 

= . + 2 

= .+2 

= . + 2 

= .+2 

= . + 2 

=.+10. 

= . + 2 

= .+2 

= .+2 

= .+2 

= .+2 

= .+2 

= . + 1 

= .+1 

= . + 1 

= . + 1 
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/ sh — command interpreter 

mov sp,r5 

mov rb,shel laro / save orig sp in shel larg 

cdpb B(rb),$'-~ / was this sh calleZd by init or loginx 

one 2f / no 

sys intrl / yes, turn off interrupts 

svs quit, 

2: 

svs aetuid / who is user 

tst rO / is it super-user 

bne 2f / no 

movb $'#,at / yes, set new prompt symbol 



2: 



lx 
newline* 



crnp (r5),$1 / ttv input? 

ble newline / yes, call with '-(or with no command 

/ file name) 
clr rO / no, set ttv 
sys close / close it 
mov 4(r5),0f / get new file name 
sys open; 0:..; / open it 
bee If / branch if no error 
isr r5, error / error in file name 
/<Input not found\n\0>* .even 
sys exit 

clr at / clear prompt character, if reading non-tty 
/ input file 



newcom: 



newargi 



tst at / is there a prompt symbol 

beq newcom / no 

mov $1 ,r0 / yes 

sys write; at; 2. / print prompt 

mov 
mov 
mov 
clr 
clr 
clr 

jsr pc,blank / squeeze out leading blanks 

jsr r5,delim / is new character a ; \n or & 

br 2f /yes 

mov r3,-(sp) / no, push arq pointer onto stack 

emp r0,$'< / new input file? 

bne If / no 

mov (sp),infile / yes, save arg pointer 

clr (sp) / clear pointer 

br 3f 



i t 




emp r0,$'> / new output file? 

bne newchar / no 

mov (sp),outi : ile / ves, save arg pointer 

clr (sp) / clear pointer 

br 3f 
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newchar * 

cmp $' ,rO / is character a blank 

beq If / branch if it is (blank as arq separator) 

cmp $'\n+200,r0 / treat \n preceded by \ 

beq If / as blank 

jsr pc.putc / put this character in parbuf list 



3* 



1 i 



I » 



2: 



1 t 



2* 



do com * 



1 t 



jsr pc,getc / get next character 

jsr r5, delim / is char a ; \n or & 

br If / ves 

br newchar / no, start new character tests 

clrb (r3)+ / end name with \0 when read blank, or 

/ delim 
mov (sp)+,(r4)+ / move arq vvtf to par? location 
bne If / if (sp)=0, in file or out file points to arg 
tst -(r4) / so ignore dummy (0), in pointer list 

jsr r5, delim / is char a ; \n or & 

br 2f / yes 
br newarg / no, start newarg processing 

clr (r4) / \n, &, or ; takes to here (end of arg list) 

/ after 'delim' call 
mov rO,-(sp) / save delimter in stack 
jsr pc,docom / go to exec command in parbuf 
cmpb (sp),$'& / get a new command without wait? 
beq newcom / yes 
tst rl / was chdir just executed or line ended with 

/ ampersand? 
beq 2f / yes 

sys wait / no, wait for new process to terminate 

/ command executed) 
bcs 2f / .no, children not previously waited for 
cmp rO,rl / is this my child 
bne lb 



cmp 



(sp),$- / \n / was delimiter a new line, 
beq newline / yes 
br newcom / no, pick ud next command 



sub $parp,r4 / put arg count in r4 

bne If / any arguments? 

clr rl / no, line ended with ampersand 

rts pc / return from call 

jsr r5,chcom; qchdir / is command chdir? 

br 2f / command not chdir 
cmp r4,$4 / prepare to exec chdir, 4=arg count x 2 
beq 3f 
jsr r'i, error / cio to print error 

<Arg count\n\0>? .even 
br 4f 
3« ■ 
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TIGN 



At 



2t 



mov 
sys 
bee 
J'sr 



clr 
rts 



parp+2,Of / more directory name to svs cu.i 

chdir; 0*0 / exec chdir 

4f / no error exit 

r5, error / ao to print error 

<Bad directory\n\0>? .even / this diagnostic 

rl / set rl to zero to dkin wait 
pc / and return 



2* / no 



H 



jsr r5,chcom; qlogin / is command login? 

br 2f / not login, go to fork 
sys exec? parbuf; parp / exec login 
sys exec; binpb; parp / or /bin/loom 

error return?? , _ , 

sys fork / generate sh child process for command 
br newproc / exec command with new process 

bee If / no error exit, old process 

isr r5, error / go to print error 

<Trv again\n\0>; .even / this diagnostic 
newline / and return for next try 



jmp 

mov 
rts 



r0,r1 / save id of child sh 

pc / return to "jsr pc, ^ocom" call in parent sh 



error* 



1 * 



movb 

beq 

mov 

sys 

br 



(r5)+,och / pick up diagnostic character 

If / is end of line 

$1,r0 / set for ttv output 

write; och; 1 / print it 

error / continue to get characters 



r5 / inc r5 to point to return 
$1 ,r5 / make it even 
rO / set for inout 

seek;.0» 2 / exit from runcom, skip to end or 
/ input file 
chcom* / has no effect if tty inout 

mov (r5)+,rl / oloain achdir rl, bump rb 
mov $parbuf,r2 / command address r2 'login' 



inc 
bic 
clr 
sys 



It 



movb 
empb 

bne 
tst 
bne 
tst 



(rl)+,rO / is this command 'chdir' 
(r2) + ,r0 / comoare command name byte with •' login 

/ or ' chd i r' 
If / doesn't comoare 
rO / is this 
lb / end of names 

(r5)+ / yes, bump r5 again to execute login 
/ chdir 



rts r5 / no, return to exec command 



putc t 



emp r0,$" / single quote? 

beq If / yes 

emp r0,$'" / double quote 

beq If / ves 
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2» 



bic 

rnovb 

rts 

mov 

jsr 
cmp 
bne 
jsr 

jmp 



$H77,rG / no, reifo- a 200, 
r0,(r3)+ / store character 
pc 



a <■ : a e i )\ 



I * 



cmp 


bea 


bic 


rnovb 


br 


tst 


' rts 



rO,~(sp) / push quote mark onto stark 

pc.netc / get a quoted character 

rO,$'\n / is it end of line 
2f / no 

ro, error / yes, indicate missing quote mark 
<" ' imbalance\n\0>? .even 
nev/line / ask for new line 

r0,(sp) / is this closing quote mark 

If / yes 

$!177,r0 / no, strip off 200 if present 

r0,(r3)+ / store quoted character in parbuf 

lb / continue 

(sp)+ / pop quote mark off stack 
pc v t return 



/ thp v e new process 
newproc* 



3: 



1 i 



4* 



2» 



mov 

beq 

tstb 

beq 

clr 

sys 

sys 

bec 

jsr 

sys 

mov 

beq 

empb 

bne 

inc 

mov 

svs 

bec 

mov 
sys 
bec 



Jsr 
sys 
sys 
issue .D Date 



infile,0f / move pointer to new file name 

If / branch if no alternate read file given 

*0f 

3f / branch if no file name given 

rO / set tty innut file name 

close / close it 

open; 0*..? / open new input file for reading 

If / branch if input file ok 

r5, error / file not ok, print error 

<InpUt file\n\0>; .even / this diaonostic 

exit / terminate this process and make parent sh 

outfile,r2 / more pointer to new file name 

If /branch if no alternate write file 

(r2>,$'> / is > at beginnino of file name? 

4f / branch if it isn't 

r2 / yes, increment pointer 

r2,0f 

open; 0:..? 1 / open file for writing 

3f / if no error 

r2,0f 

creat; 0*..; 17 / create new file with this name 

3f / branch if no error 

r'3, error 

<Qutnut file\n\0>; .even 

exit 



3i 



close / close the new write file 
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I t 
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3* 
2x 
I * 

blank? 
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mov r2,Of / move new name to open 

rnov $l,rO / set tty file name 

sys close / close it 

sys open? 0*..! 1 / open new output file, it now has 

/ file descriptor 1 
sys seek; 0? 2 / set pointer to current end of file 

tst glflaq / was *, ? or [ encountered? 

bne If / ves 

svs exec; parbuf; parp / no, execute this command 

sys exec; binpb; parp / or /bin/this command 

sys stat; binpb; inbuf / if can't execute does it 

/ exist? 
bes 2f / branch if it doesn't 

mov $shell, parp-2 / does exist, not executable 
mov $binpb,parp / so it must be 
svs exec; shell; parp-2 / a command file, get it with 

/ sh /bin/x (if x name of file) 

jsr r5, error / a return for exec is the diagnostic 

<No command\n\0>; .even 
sys exit 



mov 



$glob, parp-2 / prepare to process *,? 

sys exec? glob; parp-2 / execute modified command 
br 2b 



cmp rO,$'\n / is character a newline 

beq If 

cmp r0,$'& / is it & 

beq If / yes 

crop r0,$'; / is it ; 

bea If / yes 

cmp r0,$'? / is it ? 

beq 3f 

cmp r0,$ y [ / is it beginning of character string 

/ (for qlob) 

bne 2f 

inc glflag / ? or * or t set flag 

tst (r5)+ / bump to process all except \n, ; ,& 

rts r5 



jsr pc,getc / get next character 

cmp $' ,r0 / leading blanks 

beq blank / ves, 'squeeze out' 

arm r0,$200+'\n / new-line preceded by \ is translated 

beq blank / into blank 

rts pc 

getc* 
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1 * 

2: 



I > 
3« 



I t 



tst 


bne 


mov 


cmp 


bne 


Jsr 


br 


movb 


mov 


bis 


clr 


cmp 


beq 


cmp 


beq 


rts 


mov 


br 



UWi;, 



par am / are we substituting for $n 

2f / yes 

inbufp,rl / no, move normal input pointer to rl 

rl,einbuf / end of input line? 

If /no 

pcoetbuf / ves, put next console line in buffer 

getc 

(rl)+,rO / move byte from inout buffer to rO 

rl,inbufp / increment routine 

escap, rO / if last character was \ this adds 

/ 200 to current character 
escap / clear, so escap normally zero 
r0,$ y \\ / note that \\ is equal \ in as 
If 

r0,$'$ / is it $ 
3f / yes 
pc / no 

$200, escap / mark presence of \ in command line 
getc / get next character 

movb *param,r0 / pick up substitution character put in 

/ rO 
beq If / if end of substitution arg, branch 
inc param / if not end, set for next character 
rts pc / return as though character in ro is normal 
/ input 

clr param / unset substitution pointer 
br getc / get next char in normal input 

jsr pc,getc / get digit after $ 

sub $'0,r0 / strip off zone bits 

cmp r0,$9. / compare with digit 9 

clos If / less than or equal 9 

mov $9.,r0 / if larger than 9, force 9 

mov shellarg,r! / get pointer to stack for 

/ this call of shell 

inc rO / digit +1 

cmp r0,(rl) / is it less than # of args in this call 

bge getc / no, ignore it, so this $n is not replaced 

asl rO / yes, multiply by 2 (to skip words) 

add r01,r0 / form pointer to arg pointer (-2) 

mov 2(r0), param / more arg pointer to param 

br getc / go to get substitution arg for $n 

mov $inbuf,rO / move inout buffer address 

mov rO,inbufp / to inout buffer pointer 

mov rO,einbuf / and initialize pointer to end of 

/ character string 
dec rO / decrement pointer so can utilize normal 

/ lOOp starting at If 
mov r0,0f / initialize address for readina 1st char 
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aetbuf * 



vv 



IM 



i/ 



vnr 



xitl* 



quest* 



at* 



inc 

clr. 
sys 
bes 
tst 

beq 
inc 

cmp 

bhis 

cmpb 

bne 

rts 



sys 



<?\n> 



Of / this routine filles inbuf with line from 

/ console - if there is one 
rO / set for tty incut 

read; 0*0; 1 / read next char into inbuf 
xitl / error exit 
rO / a zero input is end of file 
xitl / exit 
einbuf / eventually einbuf noints to \n 

/ (+1 ) of this line 
Ob, $inbuf +256. / have we exceeded input buffer 
xitl / if so, exit assume some sort of binary 
*0b,$'\n / end of line? 
lb / no, go to get next char 
dc / yes, return 



exit 



size 



qchdir* 

glogin* 

shell* 

glob* 

binpb* 

parbuf * 



<chdir\0> 
<login\0> 
</bin/sh\0> 
</etc/glob\0> 

</bin/> 

.=.+1000. 

.even 

. = .+2 

. = .+2 

. = .+2 



param* 

glf lag* 

infile* 

outf lie*. =.+2 

.=.+2 / room for glob 
parp* .=.+200. 
inbuf* .=.+256. 
escap* .=.+2 
inbufD* .=.+2 
einbuf* .=.+2 
och* .=.+2 
shellarg*.=.+2 
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/ init — process control initialization 



mount * 21 . 

sys 

sys 
cmp 
bne 



help: 



1 J 



clr 
sys 
mov 
sys 
sys 
sys 
sys 
br 

mov 

movb 

sys 

inc 

cmp 

bio 

sys 

sys 

sys 

movb 

jsr 

mov 



intr; / turn off interrupts 
quit; 

csw t $73700 / single user? 
1f / no 

rO / yes 

close / close current read 

$1 ,r0 / and write 

close / files 

open; ctty; / open control tty 

open; ctty; 1 / for read and write 

exec; shell; shellp / execute shell 

help / keep trying 

$'0,r1 / prepare to change 

r1 ,tapx+8 /mode of dec tape drive x, where 

chmod; tapx; 17 / x=0 to 7, to read/write by owner or 

r1 / non-owner mode 

r1 ,$'8 / finished? 

1b / no 

mount; rkO; usr / yes, root file on mounted rko5 

/ disk is /usr . 
creat; utmp; 16 / truncate /tmp/utmp 
close / close it 

$'x,zero+8. / put identifier in output buffer 
pc.wtmprec / go to write accting irrjEo 
$itab,r1 / address of table to r1 



/ create shell processes 



1: 

mov (rl)+,rO / *x, x=0, 1... to rO 

beq 1f / branch if table end 

movb r0,ttyx+8 / put symbol in ^bpc 

Jsr pc,dfork / go to make new init for this ttyx 

mov rO,(rl)+ / save child id in word offer '0, ' '1 , » . .etc, 

br 1b / set up next child 

/ wait for process to die 



1: 



sys wait / wait for user to terminate process 
mov $itab,r1 / initialize for search 



/ search for process id 



2: 



tst (rl )+ / bump r1 to child id location 

bcq 1b / ? something silly 

cmp rO,(rl)+ / which process has terminated 



Issue D Date .3/17/72 



ID I MO. 1-1 



Section B.12 Paae 1 



UNIX IMPLEMENTATION 



T-no 2'b / not this one 

.: Tv.;;;-e out of utmp 

r-.ub £4,r1 / process is found, point x' to 'x 

/ for it 

mov r1 ,-(sp) / save address on stack 

r.iov (rl),r1 / move *x to r1 

rub $'0,r1 / remove zone bits from character 

ar.:l • r1 / generate proper 

asl r1 / offset 

a-;l r1 / for 

a si r1 / seek 

mov r1 ,0f / move it to offset loc for seek 

mov $ ze ro , r 1 

clr (r1 )+ / ccear- 

cmp r1,$zero+16. / output buffer 

bio 2b / area 

sys open; utmp; 1 / open file for writing 

bes 2f / if can't open, create user anyway 

mov r0,r1 / save file desc 

sys seek; 0:..; / move to proper pointer position 

mov r1 ,r0 / not required 

sys write; zero; 16. / zero this position in 

mov r1,r0 / restore file descriptor 

sys close / close file 

/ re-create user process 



2: 



2; 



mov (sp)+,r1 / restore 'x to rl 

mov (r'l) + ,r0 / move it to rO 

movb r0,ttyx+8 / get correct ttyx 

movb r0,zero+8 / move identifier to output buffer 

jsr pc,v?tinprec / go to write accting into 

jsr pc,dfork / fork 

mov r0,(rl)+ / save id of child 

br 1b / go to wait for next process end 



dfork 



1 : 



mov r1 ,r2 

sub $itab+2,r2 / left over 

asl r2 / from previous 

asl r2 / version of code 

mov r2, off set 

sys fork 

br 1f / to new copy of i nit 

bes dfork / try again 

rts pc / return 

sys emit; / new init turns off 

sys intr; / interrupts 

sys chown; ttyx; / change owner to super user 

sys chmod; ttyx; 15 / changemode to read/write owner, 

/ write non-owner 
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sys 

bes 
sys 

bes 
sys 



sys 



open; ttyx; / open this ttyx for reading 

/ and wait until someone calls 

helpl / branch if trouble 

open; ttyx; 1 / open this ttyx for writing after 
/ user call 

helpl / branch if trouble 

exec; getty; gettyp / getty types <login> and 

/ executes login which logs user 
/ in and executes sh- 

exit / HELP! 



helpl : 



jifp 



help / trouble 



wtmprec: 



2: 



ctty: 

shell: 

she 11m: 

tapx: 

rkO: 

utmp: 

wtmp: 

ttyx: 

getty: 

usr : 



sys 

mov 
mov 
sys 
bes 
mov 
sys 
mov 
sys 
mov 
sys 

rts 



time / get time 

ac,zero+10. / more to output 

mq,zero+12. / buffer 

open; wtmp; 1 / open accounting file 

2f 

r0,r2 / save file descriptor 

seek; 0; 2 / move pointer to end of file 

r2,r0 / not required 

write; zero; 16. / write accting info 

r2,r0 / restore file descriptor 

close / close file 



pc 



</dev/tty\0> 

</bin/sh\0> 

<-\0> 

</dev/tapx\0> 

</dev/rk0\0> 

</tmp/utmp\0> 

</tmp/wtmp\0> 

</dev/ttyx\0> 

</etc/getty\0> 

</usr\0> 

.even 



she lip: she 11m 


gettyp: getty 


itab: 

'0 

'1 

'2 

'3 

'4 

'5 

'6 

'7 
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offset; .:=. + ? 

zero: ,=.+3,; .=.+6; »-.+2 
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1 . Overview 

The code of UNIX in divided into 11 files, named uO through u9 
and ux. ux contain:; the definitions of the system table f.-; and 
data areas; the actual code is in the other sections. These 
files are assembled together in the order uO .... u9 ux. The boot 
procedures section of the UPM explains bow to test and install a 
newly assembled system. 

There are thr^e rnajor portions of UNIX: the file system, the 
process control system, and the rest. The rest refers mostly 
to the code implementing several miscellaneous system calls which 
do not fit neatly into any category. Unfortunately the various 
parts of UNIX are fairly well strewn about its constituent source 
files. The following is a rough key: 

uO initialization 

u1 system entry; some system calls 

u2 most remaining system calls 

u3 process switching, swapping 

u4 character-oriented device interrupt time routines, except 

DC-11 
u5 basic file system routines 
u6 more file system routines 
u7 more file system, character-oriented device non-interrupt 

time routines 
u8 interrupt and non-interrupt time routines for block structured 

devices (disks, tape) 
u9 almost all code for DC-11 asynchronous communications interfaces 

It has been mentioned parenthetically that UNIX is not very modu- 
lar. Its lact of modularity is reflected in this document. 
Therefore (to paraphrase Fenichel and Mcllroy referring to their 
description of TMGL) no single order of reading can be 
recommended; instead a chimneying technique is suggested, " 1 '"" K - 
ing not one wall at a time', but all simultaneously. 



climb- 



2. Overview of the data base. 

A description of each item in the data base is given in Section 
F. In core data is defined in ux 

3. System entry and exit 

The system can legitimately be entered only by some sort of trap. 
The trap caused by the trap instruction (that is, sys) and all 
otherwise unknown traps are directed to one of the synonymous 
labels unkni or sysent. There the registers are saved in the 
following order: 

rO 



rb 

ac 



... 
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mq 
sc 

A pointer to the stack (after the save) is retained. Then the 
instruction being executed at the time of the trap is examined to 
r:ee whether it represents a legitimate system call. If so, a 
jump is made to the proper routine; if not, to the label badsys. 
Whenever the system is entered by this route, a flag is set to 
indicate that system code is being executed. No traps, including 
system calls, are allowed within the system. 

To exit from a system call, a call handler jumps either to sysret 

to error. The only difference is that in the latter case the 

error bit (c-bit) is set in the word from which the processor 
status will be restored. 

At sysret, a check is made to determine the last-mentioned i-node 
the super-block, or the dismountable super block have been 
modified; if so, the I/O to write out the appropriate area is 
started via ppoke. Then a check is made to determine if the 
user's time quantum ran out during his execution in the system. 
If so, tswap is called to give another user a chance to run. The 
registers are restored and an rti is executed to return to the 
user's program. 

Label badsys is reached either because the user executed an ille- 
gal trap-type instruction or because a t-bit trap occurred. (The 
t-bit is used to implement the quit function.) badsys calls the 
appropriate internal routines to write out a core image file in 
the user's current directory, then jumps to the sysexit routine 
to terminate the process. 

4. Fork, Exit, Wait 

Fork and exit implement the creation and destruction respectively 
of processes. 

There is a fixed maximum number of processes. Each possible pro- 
cess has a slot in the process tables and a swap area on the RF 
disk associated with it. 

Label sysfork implements the fork primitive. It searches the 
p. stat portion of the process table to find an idle process slot, 
and gives an error if none is found. An entry for the new pro- 
cess is placed on the run queue and wswap is called to swap out a 
copy of the current process' core image onto the new process' 
disk area. The fsp entry for each file open in the process is 
incremented to indicate that each such file is open in another 
process. 

sysexit implements process destruction. It is more complicated 

than one might think. First eeich open file is closed by fclose. 

The process' status is set to unused. Then the process table is 

searched to find any children of the process. Any of these that 
have died but not waited for are marked free. 
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.When the oarent of the dying process is found, it is awakened (by 
putlu) if it is waiting. Then the dying process enters a zombie 
rtate in which it will never be run again, but stays around until 
a wait is completed by its parent process. If the parent is not 
found, the process just dies. 

syswait implements the process wail facility. It searches the 
process table for a child process.. If none is found, and error 
is returned. If a child is found in the zombie state (terminated 
but not buried by wait) its process ID is returned and its pro- 
cess slot is freed. 

If all children are still active, syswait calls swap to give up 
the processor. 

The possible states of a process (p.stat values) are: 

free, i.e., no process associated with this slot number 

1 active 

2 waiting for a child to die 

3 terminated, but not yet waited for (zombie). 

5, Process swapping 

The important routine is swap. When swap is called, the run 
queues are searched for the highest priority process. It is not 
the same as the process in core, core is written out to the ap- 
propriate disk area, the image of the new process is read in, and 
swap returns to the point in which it was called in the new pro- 
cess. 

If there is no process in the queues, idle is called, idle con- 
sists essentially of a wait instruction; the effect of wait is 
such that idle returns after every interrupt, swap searches the 
queues again in the hopes of finding a process entered on a queue 
by the interrupt routine. 

The I/O to write out a core image is done by wswap. It must 
operate on a stack internal to the system, wswap uses the pro- 
gram break u. break to determine how much to write out. Usually, 
the process' stack area is copied down to the top of the program 
area to speed up I/O. The I/O queue entry reserved for swapping 
is set up and ppoke is called to initiate the I/O. 

The core image reading routine is rswap; it also uses the system 
stack. The core image is unpacked by unpack. 

It is important to realize that running processes are not on the 
run queues. Therefore, processes which call swap must already 
have arranged to be put back on the run queues in some way. 

The tswap entry to swap is used for timer runouts ; it puts the 
process on the lowest priority queue before flowing into swap. 
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ft. File System 

h detailed description of the file system is given in the UPM 

under Format of File System and Format of Directories. The di- 

agramd on the following pages support that write up. 

FORMAT OF FILE SYSTEM 



Block 

Number 



number of bytes in free storage map 



free storage 
map 



number of bytes in i-node map 



inode map 



inode 1 



inode 16 



inode 17 



inode 32 



inode 33 



See page 2 



See page 3 



See page 4 



files 
Notes: There are 256 words/block 



See page 6 
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YRF.E STQSi&G?. MAP 



Note? 



1. There is 1 bit for e*ch block on the device. 

2. If the bit ic <-> 1, the block is free. 

3. The bit for block k of the device in in byt ~ k/8 
of the map; it is offset Jc (mcclB) bits from the 
right ex. Find the bit for block 100 

100 

— - s byte 12 offset = 4 

8 



block numbers 



f.s. map 



byte 



15 


8 

_ 


2 

_. «—— « 


1 o 


31 


16 




32 


■ 


48 




64 



80 

_, _.___. _. ^.^^ ._„ 

I 4 |3 |2 |1 |0 



! 100: 



99 



f • i i • , 



.--.■ — | — I 

98 i 97 | 96 
i 
i 



bit 4 of the 12th 




2 
4 
6 
8 
10 

12 



byte 
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I NODE MAP 



Notes J 



1 . The map begins with inode 41 . 

2. There is 1 bit for each i-node. 

3. If the bit is a 0, the inode is free. 

4. The byte number for i-node i is byte number 
= (i-41 )/8 

The offset or bit position = (i-41) mod8 

Ex. i b 100 

byte number * 100-41 

- byte 7 

8 
offset = (100-41) mod8 * bit 3 



i-node number 



byte 



| — 
I 56 



3 
3 

7 



I 3 |2 |1 |0 
I- 



|100|99|98|97 



41! 
57 



96 



73 



89 



bit 3 of the 7th byte 




2 
4 

6 
8 
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I-NODES 



Notes: 



1 • Each i-node represents 1 file. 

2. I-numbers start at 1 * 

3. Storage begins In block 2. 

4. i-nodes are 32 bytes long. 
16 inodes fit in 1 block. 

5. The block number for i-node i is found by: 

block number = (i+3l)/l6 
The byte number from the start at the block is 
found by j 

byte number = 32 ( (i+31 ) (modi 6) ) 

Ex. Find where i-node 50 is. 

block number = (50+31 )/l 6 = 5 

it begins at byte number 32. ((8l)mod16)) 

= 32 (1) = 32 



block number 



i-node 1 | 32 bytes/i-node 



i-node 16 




32 bytes 

_ block 5, byte 32 



6. i-nodes below 41 are for special files. 
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AN I-KODE IN DETAIL 



byte 



25 



29 



flags (see below) 



user id of 

owner 



„ i 

„. — — , — - — - , 

number of I 
links | 



byte 

i 

! o 

2 



size in bytes 



list indirect block or contents block 



2nd 


indirect or contents 


block 


• 
• 
• 
• 




8th 


indirect or contents 


block 




creation 
time 
modification 


. 




time 





8 



unused 



20 
22 
24 
26 
28 
j 30 



The flags are as follows: 

100000 i-node is allocated 

040000 directory 

020000 file has been modified (always on) 

010000 large file 

000040 set user ID on execution 

000020 executable 

000010 read, owner 

000004 write, owner 

000002 read, non-owner 

000001 write, non-owner 
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FILES 



1) A small file is a file less than 8 blocks long. 2), „A large 
file is creator than 8 blocks long. 3) Byte number n of a 
file is addressed as follows: 

block number e.n/512 = b 

a) If the file is small (see flags) 

physical block = bth entry in address 

portion of i-node 



ex, 



11 * 1500 



1500 

b = = 2 

512 

physical block = 2nd contents block in bytes 
8 and 9 of the inode 

b) If the file is large (greater than 8 blocks) 
then 

indirect block # ■ b/256 



byte offset in 
indirect block 



= 2 (b (rood256)) 



word found in this byte is the address of the 

block corresponding to b 
ex. b s 1000 

indirect block number = 1000/256 =3 
byte offset = 2 (1000 mod256) = 2.232=464 



inode 



block 
| 

1 

2 

3 
464 

bytes 



entry 
"~ '"I 



I 



| _ —- } 

j contains block no. | 

| of indirect block J 



byte 


indirect 


blocks 
i 








6 1 
start 

8 of 




i 






, J 


10 I 


• 


I 


I 


• 


■1 


i 
i 


. 


! 



I address of block b 
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Notes: 



DIRECTORIES 

1) Like a file except no user (except superuser) may 
write into a directory. 

2) A file is identified as a directory by a bit in 
the flag word of its i-node. (See i-node flag 
page 5) 

3) Directory entries are 10 bytes long. 



Entry 



4 



i -number of directory itself (.) j 



8 character file name 

i-nutnber of parent directory (.♦) 

8 character file name 

i -number of file represented by entry 



8 character f (Lie name 



. I 



10 bytes 



Issue D Date 3/17/72 ID IHO.1-1 



Section F Page 1 



FCP 



Notes: 



tlon 



1 ) The f sp tabic i 



a. t> es 



n income taru 



■intair.lncr info: 



about open files* 

2) It is 4 words/entry. 

3) The same file can be -opened more than once-, and haw 
more than one- entry in the fsp table. 



entry 
1 



15 










Ir/wj 




i-number of open fi 
device number 


.le 


offset pointer, i.e., 


, r/w pointer to file 


flag 
has 


that 
been 


says file | 

deleted j 
i. 


number of 
that have 


processes 
file open 
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7. Process Scheduling 

Processes are scheduled to run according to a priority structure 
which is implemented via the runq table and the p. link table. 
These two tables are described below. (diagram on page 9) 



THE RUNQ TABLE 



runq; 



is a table of length 3, with one entry for each of the three 
ready-to- run queues of processes. The low byte of each 
entry contains the process number of the first process in 
the queue; the high byte contains the process number of the 
last process. The entry is if there are no processes on 
the queue. Each queue is linked by the p. link entry in the 
process table. 



highest 
priority 
queue 

lowest 
priority 
queue 



process number of last 
process on queue 


process number of first 
process on queue 


7 


2 


6 


3 


10 


4 



runq 
runq +2 
runq +4 



To demonstrate the interaction of p. link and runq: 
If the priority of process numbers was arranged as follows: 2, 8, 
7, 3, 1, 6, 4, 5, 10, p. link would look like. So, the process 2 
is found in the 2nd slot of the p. link table. In this case pro- 
cess 8. 



slot numbers - ( ) 



8 (2) "" 

5 (4) 

» ----- 


"™~7i7 

1 (3) 

10 7s) 


7 (8) 

- 


3 (7) 









p. link 
p.link+2 
p. link +4 
p.link+6 

p.link+nproc (16) 
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8. Terminal Control 

The handling of character oriented devices (tty, lineprinter, 
console tty) is done via several tables and buffers, namely: 
The character count table "cc", the first character pointer table 
"of", the last character pointer table cl , the character 
list "clist", the tty control blocks tty , the tty buffers 
"buffer" and the time out tables toutt and touts. 

The tables cc, cf, cl are structured 

such that each entry is associated with the input or output 

of a specific tty or other device. The exact structure is shown 

in the diagram for these tables. The clist contains linked 

lists of characters associated with each device. See discussion in 

Section F. 

When an input interrupt occurs from a specific device 

the interrupt routine puts the character received at the end of 

the clist string for inputs from that device. When an output 

interrupt occurs the next character on the clist string for 

outputs to the device is popped off the list and is transmitted. 

If the character being output generates a delay (If, cr, ht, 

vt) the appropriate entry in the toutt table is set no output Will 

be generated while the toutt entry is non-zero. Each clock 

generated input causes every non-zero toutt entry to be 

decremented. When a toutt entry becomes zero, the associated routine 

named in the touts table is called. 

The tty buffers are used for editing the input clist strings 
for the tty's. When a sysread on a tty is done the clist input 
string for the device is scanned and put in buffer 28 #, § 
or deletes are found they are stripped from the input and 
appropriate action is taken. 
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TTY BLOCK AND BUFFER 



I. 



TTY BLOCK 



column 


tty is in 






sleep queue^wakeup 
queue, cc offset 




char left^ 
after 


over 
'If" 






cr, 


flags 
, tab i sp t 


raw, 


echo 




pointer 


to 


tty 


buffer 







tty 
tty+2 

tty +4 

tty +6 



tty+4: bit 7 - parity 37 

6 - parity non 37 

5 - raw 

4 - cr 

3 - echo 

2 - caps to lew* c»*+ 

1 - tab to space 

- no delay 



II. TTY BUFFER 



number of processes 
using this tty 



char count 



character pointer 


1 interrupt character 




char 2 1 char 1 
char 4 j char 3 




* '■ 

• 
• 

._ - 1 

i 
i 

, • „ , „_i. „,„„ 



buffer 

buf f er+2 
buffer+4 
buffer+6 
buffer+8 
buffer* 10 



data 
area 



buf f er+1 30 
buffer+138, 
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TOUTT, TOUTS TABLES 

ppt entry j console tty entry 
1 ttyO " |'(1?) 


toutt 

toutt+2 

toutt+4 

toutt+6 

toutt+6 

toutt+10 

tOutt+12 

tout t+ 14 

touts (to 

touts +30 




tty2 


ttyl entry 


\ 


tty4 
tty6 


tty3 

tty5 

- w — - 

„„„_„.,,, __ 


\ 


„, M ._ J .„„ 


J 


, i,.r - ..-■■ .r." ,-—.-. — 

console tty subroutine* entry point 


ut+1 6 ) 


pp fc //^ 




(7/s>)l 
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CC» CF, CL & CLIST 

— i ' i Ju &s£f ., ! 

, "'tit |iiv 

console *outl count j 

it tt . 

ppt 1 

lp j 


TABLES 

console in count | 

« ■ M j 

ppt i 


< 

< 




t» »t ■ ! , _, « •« j 

ttyO ! ttyO 






ttyl j ttyl j 


< 




tty2 j tty2 






tty3 I 

■ • ■ i 
• i 

tty7 


- tt w 
tty3 

• 
• 






— Z 7. ' 

tty7 






• 
• 
• 


• 
• 
• 






console int*1 st char offset 






__ _ _ __ ___ , _, Jn -.,, 

free list 1st char offset 


tt 




ppt inPchar offset 


console out/*1 st char offset 






ttyO inTfirst char offset 


ppt outf 1st char offset 

W tt M tt 

lp 




1-. 

Cl(q§+31) 


n n n m 

ttyl 

• 
• 
• 

• 
I * 
i * 

| freelist last char offset 


ft It Iff tt 

ttyO 

• 
• 

■ .• 

_ « « « tt 

tty7 

\ 

• 

I 

! 

i 
i 





cc 

cc+2 

cc+4 

cc+6 

cc+8 

cc+fl» 

cc*ft 



cc-tif 

cc+2l 



cc+8 

t» 

cfs* 

cf+2 



cf+4 
cf+6 
cf+8 



cf« 



cf+jB 
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cons ol GroutJ 1 a st cha 



r off 



ppt 
Ip 
ttyO 



•• *t 



v> •* 



*? if 



I 



console 
ppt 



&nft 



ast char off 



! cl+1 



cl+3 



| cl+5 

.„,.,— „■■■„ --ml... ...ir . . — ' 

ttyO I cl+7 



I tty7 



I tty7 



pointer to next char (0) 



pointer to next char (204) | 



character (0) 



character (204) 



j cl+21 
,i 

! cl+23 



.=. 



cl+29 
clist (cl+$ 



clist+508 
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active - 

i.s a word whose bits pnccde the activity states of the vari- 
ous block-structured device controllers. If the KK disk bit 
is on, that device is running and should not be molested. 
The devices for the bits are: 
bit device 

drum 

1 dirk 

2 dec tape 

et?rt of the buffers used for block-structured device I/O 
(there are "nbuf " of their) and typewriter input (there are 
nttv of ther). 

From buffer to buffer + 1119., are the P tty buffers. From 
buffer + 1120. to buffer + 1259. is the console tty buffer. 
Each of these buffers is 70. words long. From buffer + 1260. 
to buffer + 43R1 . are the disk buffers. Thev are 256. words 
each olus 4 words which represent an I/C queue entry. Thus 
each block is 260. words. Pointers to these 260. worl 
buffers are contained in bufp. bufo contains pointers to the 
I/O queue entrvs of each buffer. For more information, see 
H.O, p. 2. 

bufp - 

contains pointers to the block-structured device buffers. It 
is 9 words long. The first 6 entries point to the I/O queue 
entries of the 6 buffers. The last 3 words contain: 

sbo - address of I/O queue entry for the super 

block of the PF disk. 

sbi - address of I/O queue entry for the stiper 
block of the dismountable device. 

swp - address of I/O queue entry for the core image 
being swapped in or out. 

cc - 

is a 30. byte table. Each entry contains a count of the 
number of characters in the associated quexie for that entrv. 
The characters have either been received from a character 
oriented device, or are waiting to be output. 

cdev - 

The current device number. It is set up during the scan of a 
file name, and is an implicit argument to the routines which 
do I/O by device block number. cd.ev= 0-drurr, 1-disk, 2... 
dec tape. This parameter is 1 word. 

cf - 

is a 31 . bvte table. Each entry points to the first charac- 
ter in an associated character queue. The first entry refers 
to the free list" of character blocks. The pointers are 
offsets, divided by 2, in the "clist" table. 
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cl - 

is a 31. byte table. Each entry points to the last character 
in its associated character^gueue. The pointers are offsets, 
divided by 2, in the "clist" table. 

clist - 

is a 510. byte table containing linked lists of input or cut- 
put characters. Each entry is a word; the low byte contains 
the character; the high byte contains a pointer to M the n^t 
byte in the list. The pointer is a word offset in "clist . 

clockp - 

points to one of the clock cells in the super block (1 word). 

core - 

address of the beginning of user core. 

dae - 

disk address extension error reg. for KF-11 disk. (See Sec- 
tion G, pg 35) 

rics - 

disk control and status register. (See Section C, rag 34) 

deverr - 

a seven word table containing the error status of devices. 
The index into this table is the device no. 'cdev*. 
word device codes 

1 drum 0= no error, 1= error 

2 disk 

3 dectape units 

5 
6 
7 

ecore - 

address of the end of users core. 

fsp - 

this table contains 8- bytes for each currently open file. It 
must be keot on a per-system basis since the same instance of 
an open file can be referred ft to bv more than 1j?rocess. This 
table has 1 entry for each "open or "creat call. Each 
entry contains information about an open file. The fsp table 
is indexed by the u.fp list. (See Section F, pg 8 for de- 
tails.) The table is 400 bytes long. j 

idat* - 

This 448. byte area contains assembled, root, device, binary, 
etcetra, user and temporary directories and the cold boot 
initialization program directory. (Sep Section F, cage 7 for 
a description of directory structure.) Preceeding e^ch of 
these assembled directories establishing i-no:5es for the 
directories. Namely: 
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A A = i-node number 

B B = i-nofle flags (See Section F, p. 5) 

D C C = number pf links 

F, D = user id of owner M 

E = directory sizr= in bytes 

Following the 4 word area is the directory associated with 
it. These directories are used in initializing the system 
during cold boot. 

idev - 

the device number of the current i-node (1 word). See ii. 

ii - , 

the i-number of the i-node currently in the inode area of 
core (1 word). 

imod - 

a flag sot when the current i-node (ii) is modified. 
Whenever the current inode is changed, or whenever an exit to 
a user program takes place, this flag causes the i-node to be 
written out. This flag is 1 byte. 

inode - 

lays out the structure of an i-node. Each i-node (32 'bytes) 
specifies a file. While a particular file is under con- 
sideration, a copy of its i-node resides here. The current 
i-node number is kept in "ii" and its device in idev . 
Labels beginning "i." refer to locations in this area. (See 
Section F, pg. 5.) 

i.ctim - 

creation time of the file. (2 words) 

i.dskp - . 

start location of an S word 'address* portion of the i-node. 
Each word contains e physical block number, from which a phy- 
sical block address can be calculated. The index into this B 
word section of the inode can be considered a logical block 
number . if the file associated with the i-node is small (< ° 
blocks). If the file is large (> 8 blocks), the phvsical 
block number indicates an indirect block which contains 256. 
words, each of which contains a physical block no. for a 
block associated with this file. A zero physical block no. 
in either the address words of the i-node or in an indirect 
block indicates that the corresponding block has never been 
allocated. 
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i.flqs - 

flags (1 word) for the file ar? ceded as follows: 

Bit set indicates - write, non-owner 

" 1 - read, non-cwner 

" 2 " - write, owner 

" 3 " - read, owner 

" . 4 " - executable 

"5 - set user ID on execution 

" e - These bits are not assigned 

7 — 

-I? : : 

"12 - large file 

" 13 " - file has been modified (alwavs on) 

14 ** - directory 

"15 " - i-node is allocated 

i.irtirr. - 

modification time of the file (2 words). 

i.nlks - 

number of links (directories) this file appears in. (1byte) 

i.size - 

size of file in bytes. (1 word) 

i.uid - 

id of the file owner (1 byte) 

Iks - 

clock status register. (See Section C, pg 36) 

mmod - 

corresponding byte flag of imod above for the currently 
mounted desmountable file system. 

mntd - 

is the internal device number corresponding to the device on 

which a removable file system is mounted. It is used with 

"mnti". (1 word) 

mnti - 

records the i-number of the (inique) cross device file. That 
is, whenever this i-number is referred to on the FT disk, it 
will be translated into the root directory on the mounted 
device. (1 word) 

mount - 

is the in core image of the super block for the dismountable 
file system currently mounted. It contains the i-node map 
and frpe man for the device. 
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mpid - 

is the source of unique identifiers (names) for -jrocppses, 
It is incremented as each process is created. (1 word) 

nbuf - 

number of block-structured I/O buffers. Presently its 6 (for 
cold boot 2 ) . 

nfiles - 

allowable number of open files in system. Presently 50. 

noroc - 

number of processes. Presently 16. 

nttv - 

number of tty's. Presently 9 

crier - 

partab - 

128. byte table. 

ppb - 

papertaoe punch buffer register. (See Section C, p. 3P) 

pps - 

pacer tape punch status register (See Section r, p. 37). 

optif lg - 

indicates the status of the paper tape file. (1 byte) 

C - file not open 

2 - file just opened 

4 - file is normal 

6 - file not closed, error situation 

prb - 

paper tape reader buffer register. (See Section G, p. 37). 

proc - 

is a table with an entry for each possible process. The 
number of processes is given, by 'nproc*. Its length limits 
the number of processes which can be created, since it is 
always in cere . m Subtables in the process table have names 
beginning with p. . 

prs - 

paper tape reader status register. (See Section G, p. 37). 

ps - 

processor status register. (See Section G, p. ) 

p. break - 

a 16 word table. Each word is associated with a unique pro- 
cess and contains the first core address not used by the pro- 
cess. 
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D.dska — 

is a table of disk addresses for the swap are? of the 16 
processes. p.clska is 16 words long. Each word contain? a 
block nurrber for each process. 

p. link - 

is a 15 byte table indered by process number. Piven that -a 
process is on the run queue, its p. link byte is (in which 
case the process has no successors) or it contains the pro- 
cess nurrber of the next process to be run after the process 
that owns that slot. If process number 2 was running next en 
the queue and process number 8 was next, the 2nd byte of the 
p. link table would contain an R. This is how the next pro- 
cess in line is linked to the one ahead of it. 

p. nid - 

is a 16 word table that contains the unique identifier (or 
name) of a process. It is indexed by 2 X (the process 
number). The name of the process is actually a unique 
number. 

o.pnid - 

is the unique identifier (name) of the parent of the particu- 
lar process. The table is 16 words long and is indexed by 2 
X (the childs process number). This is where a chil^ 
searches for its oarent. Process number 2 would look in the 
2nd word of the p.ppid table for its parent. 

p. stat — 

is 16 bytes long. Each byte represents the status of a pro- 
cess. Each byte is indexed by the process number. The 
status's are as follows: 

- indicates the process is unused or free. 

1 - indicates the process is active waFS&em**% 

2 - indicates the process is waiting for a process to die. 

3 - indicates a zombie (the process has died but it has not 
been waited for.) 

rcbr - 

receiver buffer register for the DC-1 1 . 

rcsr - 

receiver stattis register for the DC-11. (See Section G, p. 
26) 

rfap - 

address of the t< drum buffer I/O queue entry. It is passed as 

an argument to trapt . 

rkap - 

address of the disk buffer I/O queue entry. It is used as an 
argument to trapt . 

rkes - 

control status register of the disk. (See Section P, p. 30) 
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rkda - 

disk address register. (Pee Section G, p. 29) 

I" <! .4 S — 

disk .Irive status register. (See Section G, p. 28) 

rootdir - 

is the i -number of the root directory. It is set to 41. by 
the initialization code and is never changed. 

rune? - 

'is a table of length 3, with one entry for each of the three 
readv-to-run oueues of orocesses. The low byte of each entry 
contains the process nurrber of the first process in the 
queue; the high byte contains the process nurrber of the last 
process. The entry is if there are no processes on the 
queue. Each queue is linked by the p. link entrv in the pro- 
cess table (see above). 

sbO - 

is the I/O queue entry for the super block for the permanent 

device (FF disk). It is 4 words long. 

sb1 - 
, is the I/C queue entry for the super block for the discount- 
able device. It is 4 words long. 

smod - 

is a byte flag that is set whenever the super block is modi- 
fied. During an exit to a user program, the super-block is 
written out if this flag is set. 

swp - 

is the I/O queue entry for the core image being swapped. It 
is 4 words long. 

sysflag - 

tells whether execution is going on inside the system or not. 
It is if a system routine is executing and— 1 if a user nro- 
qram is running. This is a byte flag. 

sstack - 

is a temporary stack used to store the stack during swaps. 

systm - 

is the in-core image of the super block for the T?F fixed head 
disk. It is updated onto the RF wherever it is changed. 
This area consists of 130. bytes of free-storage map 
(described in Section F, o. ), 64. bytes of I-node map 
- (described in Section F, p. ), and 22. bytes of tin*** ac- 
counting and error count information. Labels in this area 
start with 's. ' 

s.chargt - 

is the time charged to users. 
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s.drerr - 

is the d rum error count. 

s.idlet - 

the time the system is idlinq. 

s.syst - 

is the overhead time during which the processor is executing 
in the operating svstern code. 

s.time - 

is the total time since the system was last cold booted. 

s.wait - 

is the disk I/O wait time. 

tcap - 

is the pointer to the dec tape I/O queue entry (1 word). 

tcba - 

is the bus address register of the DEC TAPE. (See Section G, 

p. 32.) 

tebr - 

is the transmitter buffer register of the DC-1 1 . 

teem - 

is the command, register for the DEC TAPE. (See Section C, p. 

32). 

tedt - 

is the data register for the DEC TAPE. (See Section 0, p. 
33) 

tcerrc - 

(1 word) 

tcsr - 

is the transmitter status register of the DC-11. (See Sec- 
tion G, p. 27) 

test - 

is the control and status register of the DEC TAPE. (See 
Section G, p. 31 ) 

testate - 

is the state of the DEC TAPE, e.g., idling, searching doing 

T/C. (1 word) 

tewe - 

is the word count register of the DEC TAPE. (See Section C, 
o. 32) 

touts - 

is a 16. word table. Each word, if non-r.ero, is the <=>ntry 
ooint of a subroutine. The table is used to imnlpment 
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interval tinning in conjunction yj&h the 'toutt' table 
described below. 

toutt - 

is a 16. byte table. Each/byte in a count. ft At t> each clock 
interrupt each non-zero ,£xhe corresponding touts subroutine 
is called. All entries in these tables are fixed. 

tKb — 

is the tty reader buffer register. See Section C, p. 39. 

• * 

tks - 

is the tty reader status register. See Section C, p. 39. 

tpb - 

is the tty punch buffer register. See Section G, o. 39. 

tps - 

is the tty punch status register. See Section G, p. 39. 

tty - 

contains 8 bytes for each DC-1 1 communications interface con- 
figured. Control and status information is kept therein. 
These are referred to as tty blocks. There are ntty (9) of 
.them . The last one is for the consold tty. For their con- 
tents see F, page 11. 

ttyoch - 

is used during output to the console typewriter. (1 byte) 

user - 

is the start of each users data base. It resides just below 
the users core area and is swapped M with the user. All loca- 
tions in this section begin with u . 

u.base - 

holds the users buffer address in core during read and 
write calls. Also points to u.dirbuf in mkdir . 

u. break - 

holds the process program break point as set by sysexcc or by 
a sysbreak. It is the location at the end of the users pro- 
gram used in the swap routines. (1 word) 

u.bsys - 

is set while a process is about to be terminated for some 
error. P, core image is produced. (1 byte) 

u.cdev - 

holds the device number of the users current directory. (1 
word ) 

cdev device 

drum 

1 disk 
other dectape 
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u.cdir - 

is the i -number of the processes current direetorv. (1 worn; 

u. count - 

if the number of bytes to be transferred during read or writ* 3 
operations. This variable in 1 word. 

u.dirbuf - „ « 

usuall-/ holds the. i-numb-r cf an i-node in maVnod and 
"mkdir". (The i -number of a new i-node) u.dirbuf +• 2... 
u.dirbuf + g hold the name of the file in the directory en- 
try. 

u.dirp - 

is either ^.n offset within a directory for a file mentioned 
by the user or a pointer to an empty directory slot during ? 
"creat". It also points to a directory entry in namei . (1 
word ) 

u.fofp - 

is a word that contains a pointer to the 3rd word of an fsp 
table entry. This (3rd) word contains an offset (in bytes) 
into the file associated with the fsp table entry, and is 
used during read/write operations. In initialising special 
files, u.fofo points to u.off. For bread and bwrite, u.fofp 
contains a block number. 

u.fp - 

is a list of. users open files. An entry is either 0, for a 
non open file, or is an index into the systems fsp table 
(table of open files). Fach byte in the list contains an 
entry. The list is 10 bytes long, because 10 is the maximum 
number of files a user t( can open at once. The index into this 
u.fp list is called a "file descriptor". It has a value from 
to 9. 

u.ilgins - 

determines handling of illegal instructions. If u.ilgins is 
- the normal instruction trap handling is done the process 
is terminated and a core image is produced. 

If u.ilgins is 

a location - control is passed to that location when the trap 
occurs. This feature is used to implement the floating ooint 
instructions. (1 byte) 

u.intr - 

determines the handling of interrupts. If u.intr is zero - 

interrupts (ASCII delete) are ignored. 

is one - interrupts cause there normal result, ie, force an 

exit. 

is a location - control is passed to that location when an 

interrupt occurs. (1 word) 

u.namcp - 
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is a. oointer to a file nnn* mentioned by a urer to the syrt~m 
during system call?. (1 wor'1 ) 

u.nread - 

accumulator the. number cf bytes transmitted during read or 
write calls. (1 word) It is passed b-ck in rC on return. 

u.off - 

is either a pointer to a file offset mentioned "w a u^er dur- 
ing ' seek and t-'-ll calls or a pointer to -n f^rnpt" directo- 
ry slot in 'Vkdir' or a pointer to a directory entry as in 
sysunclink , (1 word) 

u.pri - 

hclds the oroceRs prior itv expressed as .» pointer to one of 
the three run Queues (in one word ) . If another process with 
higher priority becomes ready to run while this process is 
running, the remain! ig time quantum is set to zero. 

u.auit - 

determines the handling of quits. If u.quit i . 

- quit signals are ignored (ASCII FC ) . 

1 - quits are re-enabled, and Cc\.ise execution to ce=>re and 'a 
core imago to be produced. 

a location - control is transferred to that location wV-on a 
' quit signal is received (1 byte). 

u.rO - 

points to the location where the users rO was stored on entrv 
into the svstem (and where it will be restored on return). 
It is used to pick up and pass arguments. "est often it 
passes file descriptors. (1 word) 

ti.ru id. - 

holds the real user id number. It is not chanced b*.' the 
set-user id bit being on in an inode during a sysexec (1 
byte) . 

u.sp — 

is used to save the value of the users sp register *fter ?11 
the ether registers have been saved. It is used to restore 
the sp when returning to a user so the system need not t^ko 
care to pop everything off the stack before returning (1 
word ) . 

u.ttvp - 

is a. pointer to the buffer of# the tty that is in control of 
the process. The control tty (typewriter) is the only one 
which may quit or interrupt a process. 

u.uid - 

holds the user id number used to determine protection (1 

bvte ) . 

u.uno - 

is the process number. In sysfork it is the parent nrccPFP 
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nurbrr. In sys.cxit it is the process nunhrr of J _-he ^yin-7 
proccpn, In "cvr?.n" it ir the number of the process bring 
swapped out. 

U . U SD - 

is the contents of the so at the moment the. user is pwa^ne: 1 
out. It rust be. saved so that the appropriate return can 
take plr.ee rftcr the user is swapped back in. (1 wcr' 1 ) 



ufquant 



is the users tire quantum. It is set to 30. when a now user 
is swapped in. At every clock tick it is decremented. V'hes. 
it reaches zero the user ir swaoped out (1 byt°). 

wlist - 

is a 40. byte table of wait channels . H^ch byte is con- 
sidered a channel. Pach entry in this table is associated 
with a particular evpnt. V."hcn a process wishes to wait for 
one of these events, it calls a routine (sleen) which enters 
the process number in the appropriate channel * - this table. 
Vhen the event occurs, another routine (wakaup) wakes up the 
process. 
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ID - uo; 2/allccate tty buffers 

FUNCTION - 

Each DC-1 1 interface is assigned 140. "byte?; cf buffer nac», 
the first 140. -byte block beginning at location "buffer . 
Also for each interface a ^ v-ord block of control and rt-ituf 
tvpe information .is maintained. There 4-word blocks begin 
at location "tty", tbe fourth vrord in oach block is ? 
pointer to the beginning of the 140. -byte buffer assigned to 
that device. This section of code loads these pointers into 
the proper nlaces in the tty blocks. The results are shown 
in the diagrams on K.O, page 3. 

CALLIKC SECUEKCE - 

ARGUMENTS - 

INPUT'S - 

ntty (number of PC-1 1 interfaces) 

OUTPUTS - 

(see diagrams II. page 3), rC f r1 
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IB - uo; 3/allccate disk buffers 

?IOK - 

Block I/O devices (drum, disc, dectape) use blocks of size 
256. words. Thus for each of "nbuf" block I/O buffers 256. 
words must be assigned. In addition to the 256. words for 
data each block has four additional words which represent an 
I/O queue entry. Thus each block contains 260 words. These 
blocks begin at location "buffer + 1260.". This seqn-.er.t of 
cede loads pointers to these 260 word blocks in consecutive 
locations starting at "bufp". Thus "bufp" contains pointers 
to I/O queue entries since the first four words in each 
block represent the I/O queue entry for the block. n Three 
additional „l/0 queue entries located at locations sbO , 
"sbl", and "swp" slso exist and pointers to them are also 
leaded into "bufp". Finally, the last 2 words of an I/O 
queue entrv contain a word count and ? bus address, these 
locations are initialized. The results are shown in the 
d i a gra ms on II . , page 3 . 

CALLII3C SECUEKCF - 

II'PUTE — 

r0 (points to first block I/O buffer) 

0T*TP r 'TF — 

(see diagrams II. page 3) ri (internal counter, r2 (internal 
pointer) 
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ID - u.o; 3/froe all character blocks 

FUITCTIOF - 

tliis sogrent of ccrlc initializes the cf , cl encl clist hlecVrr 
in core to the following state: 



255. 255. cf 



(cf+31 .) cl 1 



cliFt (cf + 31 .)' 



253. clist + 506. 

254. 



callikt secuekce - 
arguments - 

INPUTS - 
OUTPUTS - 
CALLED BY - 
CALLS - PUT 
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ID - uc; 3 /set up drum svmo addresses 

FUNCTION - 

The drum is divided into 1024. blocks of 256. vor?s. The 
highest 64. blocks are net aside for storing UNIX itself. 
Processes swapped to and from core ere stored on the drum. 
The area in cere beginning at location p.dska contains a 
block number which is the number of the first block on the 
drum where the process is swapped to. There are 17 blocks 
on the drum assigned as swapping area for each process. 

This segment of code initializes the p.dska area^in core bv 
supplying the block numbers for each of nproc processes. 
The results annear as follows: 



943. o.dska 
926. 



9S0.-nproc*1 7. p.dska + 2*nproc -2 

calling sequence - 
ap.cuments - 

INPUTS - 

OUTPUTS - 

p,dska - [p.dska + 2*nproc -2] f r1 , r2 
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ID - uo; 4/free rest of drum 

FUNCTION - 

This oortion of cede is executed 'luring 'cold' hoot. (See 
UNIX Programmers Manual - Boot Procedures VII.) It initial- 
izes the core image of the sniper block for the fixed head 
disk. ■ System, (which represents the number of bytes in the 
free storage map) is set to 12ft. System + 130. (which 
represents the number of bytes in the i-node map) is set to 
64.. (See Section F, pp. 1,2). Blocks 34.,... 687. on the 
drum are freed (the corresponding bits in the free storage 
map are set). These blocks are for user files. 

CALLING SEQUENCE - 

ARGUMENTS - 

INPUTS - 

r1 contains the number of the highest block to be freed. 
(See inputs for 'free'; K..S, p. 2) 

OUTPUTS - 

systm, systm + 6, systrn + 8,,.., systm + 85, cystm + 130. 
(See outputs for 'free'; K.5 p. 2) 
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ID - uo; 4/zero i-list 

FUNCTION - 

This portion of code is executed during 'cold* boot. (See 
UNIX Programmers Manual - Boot Procedures VII). It zeros 
blocks 1,..., 33. on the drum. Block 1 is the 2nd block of 
the superblock for the drum. (Block is the 1st block of 
the superblock. -However, since the in core image? of the 
superblock (see UNIX Implementation Manual - p. 3) is updat- 
ed onto the RF03 whenever it is changed (can be changed by a 
call to 'free', updated by a call to 'sysret* it does not 
have to be zeroed.) Blocks 2,..., 33. are used for i-nodes 1 
thru 512 (see Section F pp. 1,3,4,5.) 

CALLING SEQUENCE - 

ARGUMENTS - 

INPUTS - 

r1 contains the number of the highest block to be zeroed + 
1. (See inputs for 'clear' H.3, p. 1.) 

OUTPUTS - 

Blocks 2,..., 33. on disk are zeroed. (See outputs for 
'clear' H.3, p. 1.) 
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ID U1 ;3 badsys 

FUNCTION - 

"badsys" is called either because the user executed an ille- 
gal trap type instruction or because a t-bit trap occur ed. 
(The t-bit is used to implement the auit function.) "badsys 
first turns on the bad system flag (u.bsys) and the calls 
namei with u.namep pointing to core . The core image 
file is then opened for writing via iopen . If th.p file is 
net found, and i-node whose rode is 17 is made by "rraknod , 
and the i-number for that node is out in r1 . Parameters to 
write out core area then set un and the core image is writ- 
ten cut in the users directory. Then the users area of core 
is written cut and the file closed. sysexit is entered to 
terminate the process. 

CALLING SECUF.NCE - 
bhis badsys 

ARGUMENTS - 

INPUTS - 

r1 - i-number of core image files i-node u.dirbuf contains 
i-number of new i-node mode by rraknod. . 

OUTPUTS - 

u.bsys - turn on. Its the users bad system flag. 

u.base - holds address of "core", and user during write i -calls. 

u. count - users byte count to write out. 

u.fofp - contains file offset. 

u.off - set to zero. 

r1 - has i-number of core image file. 
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ID U1 ;7 error 2 

FUNCTION - See 'error' routine 

CALLING SEQUENCE - 

ARGUMENTS - . 

INPUTS - 

OUTPUTS - 
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ID U1 ; 5 error 1 



FL*:;CTIOK - See *«rror' 



ARGUMENTS - 
CALLING SECUEKCF - 
It.FUTS - 
OUTPUTS - 
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ID U1 ;2 nrror 

FUNCTION - 

"error" ' rr.rroly spts the error bit of the processor status 
(e-bit) and then falls right into the svsret, svsrele return 
sequence. 

CALLING SECUEKCE - 

conditional branch to error. 

AFCUKEETS - 

INPUTS - 

OUTPUTS - 

processor status - c-bit is set (treans error). 
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ID U1 ;9 gttv 

FUNCTION - « .. 

"gtty" is called by sysgtty and sysstty . It takes the 
first argument of the above calls and puts it in r2. This 
argurent is either the source or destination of information 
about the tty in question. The file descriptors put in r1 
and the i -number of the file is obtained via getf . The 
number of the tty is gotten by (the i-number-1 4 ) . If no tty 
with this number exists an error occurs. S x (i-number-1 4) 
is the tty block offset. This is outputed in r1 . 

CALLING SEQUENCE - 
jsr rO, gtty 

ARGUMENTS - 

INPUTS - 

(u.rO) - contains the file descriptor for the tty file 
r1 - i-num.ber of file 

OUTPUTS - 

r1 - tty block offset 

r2 - source or destination of information 
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ID U1-4 intra ct 

FUNCTION - 

"intract" checks? to see if the process owns a quit or inter- 
rupt from the typewriter. If it owns a quit, the quit flag 
is cleared and the T hit (trace trap) of the processor 
status is set. If 'the interrupt character is a del (177), 
u.intr is checked to see if it is equal tc >f the process 
"core". If it is, control is transferred to core . If 
not, sysexit is taken. 

CALLING SEQUENCE - 
br intra ct 

ARGUMENTS - 

INPUTS - 

(sp) - contains the instruction PO is pointing to 
u.tty - pointer to buffer of tty in control of the process 
(rl)+6 - interrupt character in the control tty's buffer 
u.intr - determines handling of interrupts (Sep sysintr in 
the UNIX Programmers Manual). 

OUTPUTS - 

clock pointer is pepped. 

- If the interrupt char is a quit character, 

(rl)+6, the interrupt character in the control tty's buffer, is clears 
u.quit is cleared 
T bit of ps is set 

- If the interrupt char is a "del" (interrupt) 
(rl)+6 is cleared n M 

control is transferred to core if (u.intr)= core 
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ID U1 ;6 rw1 

FUNCTION — 

' rvl is called by sysread and syswrite. It nuts the buffer 
pointer (buffer) 'into u.bssc and the nurber of characters 
'(nchar?) into n.coujit. If then find? the i -nurr.be r of the 
file to be read by getting the file descriptor in *u.rO and 
calling "getf". The "i-nunber is returned in r1 . 

AECUI'^KTS - 

INPUTS - 

buffer - buffer pointer 
nchar - nurrber of characters 
*u.rO - file descriptor 

OUTPUTS - 

u.base - buffer pointer 

u. count - number of characters 

r1 - contains the i-nurrber of the file to be read 

C2LLINC SEQUENCE - 
jsr rO, rw1 
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ID U1 ;8 sysclose 

rUKCTIOS - 

"sysclose" , qiven a file descriptor in u.rC, closes the 
associated file. T ^ r „ file descriptor (index to the u.f£ 
list) is put in r1 and "f close" if? called. (See "fclcse 
H.2.) 

CALLING SECUEKCE - 
sysclose 

ARGUMENTS - 

INPUTS - 

(u.rO) - file descriptor 

OUTPUTS - 

See fclose outputs 
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IV U1 ;7 ?yccrnpt 

FUNCTION - 

syscreat is called with two arguments ; naTf 1 and mode, 
u.namep ooint? to the name of the filr and th<* mode is nut 
n en the stack, namei is called to get the i-number of tVe 
file. If the file • already exists, its ro^.e and owner remain 
unchanced, btit it is truncated to zero length. If the file 
did not exist, an i-node is created with the new trr> via 

rakned whether' or not the file already existed, it is open 
for writing. Th^ fsp table (see F page P) is then searched 
for a free pntry. When a free entry is found, the proper 
data is placed in it (see outputs below), and the 
number of this entry is placed in the u.fp list. The index 
to the u.fp (alec known as the file descriptor) is out in 
the users rO . For more information, see svscreat in the 
users manual. 

CALLING SEQUENCE - 

syscreat; name; mode 

ARGUMENTS - 

name - name of file to be created 
ti •# h ■■ it 

mode - mode 

INPUTS - 

r1 - i-number of file if found 

(sp) - contains the mode argument 

u.dirbuf - if fil" not found, contains i-number of new file 

fsp - table of open file entries 

OUTPUTS - 

if file not found - new i~node is created (see makned) 

r1 - contains i-number of new fil<= 
r3 - index into fsp table (file descriptor) 
r2 - index into u.fp list 
in free fsp entry - 1 st word i-number of new file 

2nd word device number 

3rd word 

4th word C 
u.fp list - entry number cf new fsp entry 
*u.rO — index to u.fp list (file descriptor cf new file 
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in U1 ;7 sysent;unkni 

FUNCTION - 

unkni or sysent is the system entry from various traps. The 
trap type is determined and an indirect jumo is made to the 
appropriate system call handler. If there is a trap inside 
the system a jump- to panic is made. All user registers are 
saved an^- u.sp ooints to the end of the users stack. The 
sys (trap) instructor is decoded to get the system code part 
(see trap instruction in the PDP-11 handbook) and from, this 
the indirect jump address is calculated. If a bad system 
call is made A i.e., the limits of the jump table are exceed- 
ed, badsys is called. If the call is legitimate control 
passes to the appropriate system routine. 

CALLING EECUEKCE - 

through a tra.D caused by any sys call outside the system. 

f-RGUMI-rKTS - 

arguments of the particular system call. 

INPUTS - 

s.syst+2, rO, sp, r1 , r2, r^ , r£ , r5 , ac, mq , sc 

OUTPUTS -' 

clcckp - contains, $s.syst+2 

u.rC - points to the location of the users rO en the stack. 

rO - sc saved on the stack 

u.sp - ooints to the end of the users stack. 
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ID U1 ;3 eysexit 

FUNCTION - 

sysexit terminates a orocftss, First each file that the oro- 
cess ha? ope net! is closer! by f close . The process status? 
is then set to unused. The p.ppid table is then sea rebec! to 
find children of the dying process. If any cf the children 
are zombies, (died but not waited for) they are set free. 
The p.pid table is then searched to find the dying process's 
parent. V.'b.en the parent is found, it is checked to fpp if 
it is free or it is a zombie. If its one of these, the 
dying process just dies. If its waiting for a child to die, 
it is notified that it doesn't have to wait anymore by set- 
ting its status from 2 to 1 (waiting to active). It is th^n 
awakened and put en the rung by putlu. . The dying process 
enters a zombie state in which it will never be run again 
but stays around until a wait is completed by its parent 
process. If the parent is not found, the process just dies. 
This means swap is called with u.uno = 0. V'hat this does is 
that wswap is not called to write out the process and rswap 
reads a new process over the one that dies.. i.e., the dying 
process is overwritten and destroyed. 

CALLING S.ECUENCF. - 

eysexit or conditional branch 

ARGUMENTS - 

INPUTS - 

u.uno - the process number of the dying process 

p.pid - contains the name of the process (See F, oage 10) 

p.ppid - contains the name of the parent process. 

p. stat - the status of the process. 

OUTPUTS - 

u.intr - determines handling of interrupts - it is set to 

all open files of the process are closed 

the process is freed 

r3 - contains the dying process's name or number 

r4 - contains its parents name 

r2 - is used to scan the process tables 

children of the dying process are freed 

r1 £. r5 are used to hold the parents process number 2 

If the parent of this dying process is waiting, it is set to 

active and the dying process is made a zombie and the parent 

is put on the rung. 

u.uno is cleared and the process is killed 
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IP U1 ;5 eysfork 

FUNCTION - 

sysfork creates a new process. This process is referred to 
as the child process. Thi^ new proeep- corp image ie o copy 
of that of the caller of "sysfork". The only distinction in 
the return location and the fact that (u.rO) in the ol^. pro- 
cess (parent) contains the process id j[p.pid) M of „the new 
process (child). This id is used by ' syswait". "sysfork 
works in the following manner: 

1 ) The process status t*ble (p.stat is searched to find a 
process number that is unused. If none are found an error 
occurs . 

2) V.'hen one is found, it becomes the child process number 
and its status (p.stat) is set to active. 

■?} If the parent had a control tty, the interrupt character 
in that tty buffer is cleared. 

4) The child process is nut on, the lowest priority run 
queue via putlu « 

5) A new process name is gotten from moid (actually its a 
unique number) and is put in the child's unique identifier^ 
the process i{f (p.pid). 

6) The process name of the parent is then obtained and 
placed in the unique identifier cf the parent process of the 
child (p.ppid). The parent process name is then put in 
(u.rO). 

7) The child process is then written out on disk by 
"wswap", i.e., the parent process is copied onto disk and 
the child is born. 

6) The parent process number is then restored to u.uno. 

9) The child process name is put in (u.rO). 

10) The pc on the stack sp + 18 is incremented by 2 to 
create the return address for the parent process. 

11) The u.fp list is then searched to see what files the 
parent has opened. For each file the parent has opened, the 
corresponding f.zp entry must be updated to indicate that the 
child process also has opened the file. A branch to sysret 
is then made. , 

CALLIKC SECUENCF - 
from shell? 

AFCUMEKTS - 

IKPUT£ - 

p.stat - status of a process active, dead, unused. 

u.uno - parent process number. 

u.ttyp - pointers to na rents process control tty buffer. 

mpid - process name generator 

u.fo - list index into the tsp table. 

fsp - table of open files. 

OUTPUTS - 

p.stat - byte for child, process is set to active if control 
tty for parent exists buffer + 6 is cleared child orocess 
number ir *~ut en rung + A. 
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p.pid - appropriate entrv in this table cent? in? the nanp of 
the child orocecp, 

The child process is written out en drum with u.unc "being 

the chil.ir: process number and (u.rO) containing the parents 

process' nnire. 

u.uno - is restored to the parents process nurrber. 

(u.rO) - contains the childs process narre. 

sd+1C - qets 2 added to it to change the return address cf 

the parent. „ 

fsp+6 - "number of processes that have opened this file 

byte gets incremented in the particular fsp entry. 
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ID TJ1 ;9 syrgtty 

FUNCTION - 

. "sysgtty" gets the statue cf the tty in question. It stcres 
in the three words addressed by its argurrent the status of 
the typewriter where file descriptor is ir. (u.rO). 

CALLIHC SECUEKCE - 
sysgtty; erg 

APCUMZIITS - 

'era - address cf 3 word destination of status 

IKPUTS - 

r1 - ttv block offset 

r2 - destination of status data 

rcsr+r1 - reader control status 

tcsr+r1 - rrinter control status register 

tty+4+r1 - flag byte in tty block which contains the node. 

OUTPUTS - 

(r2) - contains the reader control status 

(r2)+2 - contains the printer control status 

(r2).+4 - contains the node control status 
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ID U1 ;P sysrr.rlete 

FUITCTJOK - 

"sysmdate" is given a file n?re. It gets thf 5 i-node of this 
file into core. The user is checks-' 1 to see if he i<? the 
owner or the super user. If he is neither an error occurs, 
"setimod" is then called to set the i-ncdr modification byte 
and the modification time, but the modification time is 
overwritten by whatever got put on the stack during a sys- 
time" call (see systime). These calls are restricted! to the 
super user. 

CALLING SFCUEKCE - 
sysmda te ; na me 

name - pointer to a file name 

I MP UTS - 

u.uir! - users id 

i.uid - owners id 

sp+4 _ time set by super user 

sp+2 - 

"T^UTS _' 

i.mtim - new modification time of the file 
i.mtim +2 - new modification time of the file 
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ID U1 ;P sysirkdir 

function - 

"sysmkdir" creates an empty directory vhose nare is pointed 
to by arg 1. The mode of the directory is arg 2. The soe- 
cial entries "." and ".." are not present. FrrcrP are indi- 
cated if the directory already exists, or the user is not 
the super user. 

CALLING S2CUEKCE - 

sysmkdir; name; mode 

.*f.gu;ifi?it - 

name - points to the name of the directory 
mode - mode of the directory 

INPUTS - 

u.uid - user id; if its the user is the super user 
(pp) - contains the 'second argument mode 

OUTPUTS - 

makes pn. 1— node for the directory via m^knod 
sets ur? the flag in the directory i-nodp 
set uppr id on execution 
executable 
directory 
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ID U1 ;6 syr.cpnn 

FUNCTION - 

"sysopen" opens a file in the following renner: 

1) The second argiwent in a sysopen calls says whether to 

ooen the file to read (0) or write (/0). 

?") The i-ncde for the ©articular file is obtained via 
« ' . it 

namei . 

3) The file is then opened by iopen * 

4) Next housekeeping is performed on the fsp table and the 
users open file list - u.fp. 

a) u.fp end fsr? are scanned for the next available slot. 

b) An entrv for the file is created in the fsp table. 

c) The number of this entry is put on the u.fp list. 

d) The file descriptor index to the u.fp list is pointed 
tc by u.rO. 

CALLinr SEQUENCE - 

sys open; name; mode 

AFCUMENTS — 

name - file name or path name 
mode - - open for reading 
1 - open for writing 

INF UTS - 

r1 - contains an I -number (positive or negitive depending 
on whether and open for read or open for write is 
desired. 

OUTPUT - 

entry in fsp table and u.fp list 

*u.rO - index to u.fp list (the file descriptor) is put 

into rO's location on the stack. 
r2 - used as a counter through the u.fp list. 
r3 - used as a pointer to the beginning cf an fsp entrv. 
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ID U1 ;G sysread 

FUMCTIOK - 

sysread is given a buffer tc renr! into ar/3 the nurher of 
characters to he reu-h. It finds the file fror the file 

descriptor lecatrd in *u.rO (rO). Thin file descriptor is 

returned frcrn a successful open call. (See sysooen t< v .1 , 

nacre 1.) Ihe i -number of the file is obtained via ' rw1 and. 
the data is rear? into core via readi . 

CALLING SECUEMCE - 

sysread; buffer; nchars. £T?cuMENTS - 

buffer - location of contiguous bytes where input will be 

placed. 

nchars - number of bytes or characters to be read. 

INPUTS - 

r1 - contains i-nur.ber of file to be r*=a.d. 

OUTPUTS - 

*u.rO contains the number of bytes read. 
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ID U1 ;2 sysrele 

FUNCTION - 

"sysrele" first calls t*v?ap it the time auantur for ? iif-^r 
is zero (npe rysr°t) . It then re?toref the usr>rs registers 
and tornr off the system flog. It then ch^ck^d^ to s^-e if 
there is an interrupt from the u?r-r by calling isintr . If 
there is the output gets flushed (see isintr) »nd interrupt 
action is taken by a branch to intract. If there is no 
interrupt from the user a rti is made. 

CALLING ErCUEKCF - 

fall through a hne in sysret £■ ? 

ARGUMENTS - 

INPUTS - 

stack 
(s.chrgt+2) ? 

OUTPUTS - 

sc, mq, ac, r5 , r4, r3 , r2, r1 , rC restored. 

eysflac - turned off 

clcckp - points to s.chrgt+2 
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ID U1 ;2 sysret 

FUNCTION - 

svrret first chocks to see if the procesr is about to be 
terminated (u.bsys). If it is rysexit if? called. If not 
the follow inc. happens: 
1 ) The ueerc stack pointer is restorer!. 

2) r1 --0 ant' "icet" is called to see if the last mentioned 
i-node has bcon modified. If it has it is written out. 

3) If the suoer block has been rodified, it is written out 
bia ppoke . 

4) If the discountable file system's suppr block has been 
modified it is written out to the soe cified device via 

ppoke . ^ 

5) L check is made to see if the users tire quantum M (u- 
quant) ran out during his execution. If so, tswap is 
called to qive another user a chance to run. 

6) sysret new goes into sysrele. (Sep sysrele for conclu- 
sion.) 

CALLING SECLWCE - 

jump table or brsysret 

ASGUMEMTS - 

INPUTS - 

u.bsys - user's bad system flag 

u.sp - user's stack pointer n n 

r1 - used internally - set to for iget call 

smod - set if super block has been modified 

mmcd - set if disrrountable file systems super block has been modified 

u.ouant - user's time quantum. 

OUTPUTS - 

sp - points to users stack 

smod - cleared if it was set 

minod - cleared if it was set 

sbO - write bit is set during execution of sysret 

sb1 - write bit is set during execution of sysret 
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IB U1 ; 5 cysret 1 

FUNCTION - see 'pysret' 

CALLING SEQUENCE - 

n 

T- tr Q I TM p ~'JV S —• 

INPUTS - 
OUTPUTS - 
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ir> U1 ;7 syrret 2 

FUNCTION - see 'sysret* routine. 

CALLING SSCUIiNCr - 
ARGUMENTS - . 
INPUTS - 
OUTPUTS - 
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ID U1 ;0 sysstty 

FUKCTKXT - 

sysstty gets the status and mode of the tvoevrit^r whose 
file descriptor is in (u.rO). First "gtty" 1? cabled to get 
the tty block and the source or the status information. 

tf ft 

getc is called until t v e input clist is flushed. Th« cut- 
put character list is checker!. If sore characters ^re on 
it, the process is put to sleep and the input list is 
checked again. If there are no characters, the information 
in the source is put into the reader control status, printer 
control status registers and the tty's flaa byte in the tty 
block. 

calli::" efcuskce - 
syrstty; arg. 

ARGUMENTS - 

arg. - address of three consecutive words that contain the 
source of the status data . 

INPUTS - 

r1 - offset to tty block. 

r2 - ooints to the source of the status information. ?ee 

arg. above. 

r1+tty+3 - contains the cc offset. 

r3 - used to transfer the source information to the tty 

status registers and block, 

OUTPUTS - 

ps - sot to 5 

rcsr+r1 - contains new reader control statu? 

tcsr+r1 - contains new printer control status 

tty+4+r1 - contains new mode in the flag byte of the tty 

block. 
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133 U1 ;4 syswait 

function: - 

syswait waits for a process to din. Tt works in the follow- 
ing way: 

1 ) from the parent process number, the parents process nsre 
is f ound . The p.p;Jid table of parent names is then searched 
for this process name. If a match 6cc\irs r2 contains the 
childs process number. The child's status is checked to see 
if its a zombie, i.e., dead but not waited for, (p.sta't = 3) . 
If it is, the child process is freed end its f| name is put in 
(u.rC). A return is then made via "sysret . If the child 
is not a zombie, nothing happens and the search go^s on 
through the p.ppid table until all processes are checked or 
a zombie is found. 



2) If no zombies are found, a check is mp.de to see if there 
are any children at all. If there are none an error return 
is made. If there are, the parents status is set to 2 
(waiting for child to die), the parent is swar -ed out and a 
branch to syswait is made to wait on the next process. 

CALLING SEQUENCE - 
■? 

ARGUMENTS - 

INPUTS - 

u.uno - parent process number (process number of process in 
core) p.pid - table of names of processes p.ppid - table of 
parents names of processes, p.stat - contains status of 
process 

- free or unused 

1 - active 

2 - waiting for process to die 

3 - zombie 

OUTPUTS - 

r2 - used as index to p.pid, p.ppid, p.stat tables 

r3 - used to keep track of the number of children 

r1 - has parents process number 

If zombie found - its status p.stat is freed (set to C) 

- its name is put in (u.rO) 
If no zombies found - status of parent is set to 2 

(waiting for child to die) 
- parent is swapped out 
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ID U1-6 syswrito 

FUKCTIOIJ - 

syswrite is qiven & buffer to write, onto an output file ar.cl 

the number of characters to write. It finds the file fror 

the file descriptor located in *u.rP (rO). This file 

descriotor is returned froir a successft.il open or creat call 

(see sysopen or syscreat) . The i-nunbsr of the fil<=> is 

obtained via **rwl" and the buffer is written en the output 
file via writei . 

CALLING SEQUENCE - 

syswritc; buffer; nchar 

AFCUM~K?S -■ 

buffer - location of contiguous bytes to be written 
nchara - nurrber of characters to be written 

INPUTS - r1 - contains the i-nur.ber of the file to be writ- 
ten on 

OUTPUTS - 

*u.rO - contain? the number of bytes written 



Issue D Date 3/17/72 ID I?^#ff^1 Section Tt .1 Page 25 



UNIX irPL^MEIlTATIOt: 



ID U2-9 anvi 

?ui;ctiom - f 

"anyi" is called if a file has been deleted vhile onen, 
"anvi* checks to nor if someone else hr? opener 1 this file. 
It searches the fsp table for an i -number contained in r1 . 
If that i -number is found (if someone elre opened the filn) 
the "file deleted" flag in the upper byte of the 4th vcrd cf 
the fsp entry is incremented (see F, page S) . In ether 
wcrJs the deleted flag is passed onto the other entry cf 
this file in the fsp table. Note: The same file mav appear 
ir.cre than once in the fsp table. 

If the i-number is not found in th«* fsp table (no one else 
has opened the file) the corresponding bit in the i-ncde mao 
is cleared freeing that i-ncde and all blocks related to 
that i-ncde. 

CALL IMC SECUPHCr - 
jsr rO, anvi 

It'PUTS - 

r1 - contains an i -number 

fsp - start of table containing open files 

r2 - points to the i-number in an fsp entry 

OUTPUTS - 

"deleted" flag set in fsp entry of another occurence of this 
file and r2 points to 1st word of this fsp entry. 

if file not found - bit in i-node map is cleared 

(i-ncde is freed) 

- all blocks related to i-node are freed 

- all flacs in i-node are cleared 
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I" U2-6 arg 

FUrCTTOl! - 

arg extracts an argument for a routine whose en 11 is of 
f orr : 

s y s ' rout i ne ' ; a rg 1 

or 
sys 'routine'; argl ; arg2 

or 
syp 'routine'; arg1;»..; arg10 (sys^x-^c) 

CALLING ErCUEIIC" - 

jsr rO, arg; 'address' 

spgum-kts - 

'Address' - address in which extracted argument is stored 

I UP UTS - 

u.sp+1c - Contains a pointer to one of argl,..., argn. This 
pointer's value is actually the value of the xipdated r>c at 
the time the trap to sysent (unkni) is na^-o to process the 
sys instruction. 

rO - Contains the return address for the routine that called 
arg-. The data in the word pointer to by the return address 
is used as the address in v;hich the extracted argument is 
stored. 

OUTPUTS - 

'address' - Contains the extracted argurent 

u.sr>+1F - is incremented by 2. 

r1 - Contains the extracted argument 

rO - Foints to the next instruction to he executed in the calling 

routine . 

CALLS - 

C7: LLHP BY - 

rv:1 , sysent, syrilgins, sysmdate, gtty, syrunlink, sysfstat, 
syschdir, ?-g2, sysbreak, seektell, sysintr, sysauit, ^ 
sysumount 
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ID TT2-7 are, 2 

7T T i:CTIC" - 

Taken first arg. in system call (pointer to name of file) 
an r1 puts it in location u.nemop; take? Foconrl arg and puts 
it in u.off -nd on top of the stack. 

C/iLLIir CECUEIICE - 
jsr rC , arg2 

afgu;:ei^T£ - 

inputs - 

u.sp, rO 

OUTPUTF - 

u.narrep 

u.of f 

u.off pusher! on stack 

r1 
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ID U2-4 error 3 

FUlTCTlor: - See 'error' routine 

callinp FEC r ":ncE - 

AFGUMSNTP - 
INPUTS - 
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riJKCTIOl; - See 'error' routine 

CALLING SFCUFKCE - 

IMP UTS 

OUTPUTS - 
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I): I T 2— 1 error 9 

"UNCTIO" - See 'error' routine 

tt 

C7-- T T TT"^*" " ~?/^. ry Z?''*<* % V 
. -iJjij.'.iA- O . ■.,..' ..!' _.v... - . — 

It 

i:\put? - 
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ID U2-9 f close 

riven the file descriptor (index to the u.fp liPt) M felose 
first get? the i-nurrber of the file via getf . If the 
i-ncde is active (i-nurrber / C) the entrv in the u.fp list 
is cleared. If 'all the processes ' that opened that file 
close it, then the fsp entry is freed an-." the file is 
closed. ' If not, a' return is taken. If ' the file h3S f< been 
deleted while open (see "deleted flag F, page E) anyi is 
called to see" if anyone else has it open, i.e.^ see i( if it 
appears in another entry in the fsp table l[spe m anyi for 
details K.2 page 0). Upon return from anyi a check is 
made to see if the file is special. 

CALLING FECUEIjCE - 
jsr r0, fclcse 

ARGUMENTS - 

INPUTS - 

r1 - contains the file descriptor (value = 0, 1, 2....°) 
u.fp - list of entries in the fsp table 
fr-p - table cf entries (4 words/entry) of open files. 
(see F, nngc 3) 

r1 - contains the same file descriptor it entered with 

if all processes that open file close it, the fsp entry 

is freed ft and the file is closed. jt n 

if "anyi" is called the outputs in 'anyi occur (H.2, page 0) 

the "number of processes" byte in the fsp entry is decremented 

(see F, page ?) 

r2 - contains i-nurnber. 



Date 3/17/72 ID IMO«t«| Section H. 2 Pace 7 



T,, \ I X X MP L^ * V V.T £ T 1 07 7 



ID U2-4 getf 

jUNCTIOI" - i? 

"getf" first checks to see that the us^-r ha? not exceeded 
the maximur number of open files (10.) If ho ha r an error 
occurs. If not, the index into the fsp table is calculated 
from, the ta.fp list; u.fofp contains the address of thr 3r^ 
word in that fsp entry. (The file offset. See ?, page 8) 
cdev and r1 contain the device and i-number of the file. 

CALLING SEQUENCE - 
jsr rO, getf 

ARGUMENTS _ 

INPUTS - 

r1 - contains index into u.fp list 

OUTPUTS - 

u.fofp - contains address of 3rd word in that ~sp entry, 
cdev - contains files device number 
r1 - contains files i-number. 
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in U2-3 isdir 

fukctio:: - 

"isdir checks to see if the i-node where- i-nu^hcr if in r1 A 
is a f.ireotorv. If it is, an error occurs, ^pc?''f^ isdir 
in called by syslink and sysunlink to nak*- rure directories 
are not linked. If the user is the super user (u.ni'"! - 0) , 
"isdir" does net bother checking. The current i-norle is not 
disturbed. 

CALLIisT EECUEIICE - 
isr rO, isdir 

AKCUM/OTG - 

IMPUTE - 

r1 - contain? the i -number v?hcse i-node is being checked. 

u.uid - user id 

ii - current i-node number 

i.flgs - flag in i-node (this is tested to sr-< if the i-ncde 

is a directory i-node) 

OUTPUTS - 

r1 - contains current i-number upon exit 
current i-node back in core 
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IP U2-G is own 

FUMCTICX - 

"isovrn is M given tt a file name. It finds the i-nurher of th*t 
file via narei then gets the i-node into core via igot . 
It th.cn tests to see if the user is the sneer user. If not, 
it checks to see 'if the user is the o-mer of the file. If 
he is not, an error occurs. If user is the owner "setimcd 
is called to indicate the i-node has been modified and the 
2nd argument of the call is put in r2 . 

CPLLIKC SEQUENCE - 
jsr rO, isown 

?>?.C UKENTS -. 

INPUTS - 

arguments of syschmod or syschov?n calls 

OUTPUTS - 

u.uid - id of user 

imol - net to a 1 

r2 - contains second argument of the system call 
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IT. U2-7 n'akncc 1 

FUI1CTI0K - 

maknod creates an i-nodo and makes a director" c-ntr^ for 
this i-ncde in the current directory. It gets the mc-e of 
the i-node in r1 the name is used in mkdir for the directory 
entry (see makdir K.2). The i-node is made in the following 
manner. First the allocate flag is set in the mode. * scan 
of i-nodes above begins. The i-node map is checked to si?p 
if that i-node is active-. If it is the noxt i-node in the 
bit nap is checked until a free ore is found. If one is 
found a check is made to see if it is already allocated. If 
it is, the search continues. If not the i -number is put in 
u.dtr bit and a directory entry is made via mkdir. Then the 
new i-node is fetched into core and its parameters are set 
(see outputs). 

CALLING SECUEMCE - 
jsr rO, mknod 

INPUTS - 

r1 - contains mole ii - current i-number - should be at the 
current directory mq, r? - bit position & byte address in 

i-node map 

OUTPUTS - 

u.dirbut - contains i-number of free i-node 

i.flgs - clag in new i-node v 

i.uid - filled v?ith u.uil 

i.nlks - 1 is put in the number of links 

i.otim - creation time 

i.ctim+2 - modification time 

imod - set via call to setimod 
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ID U2-2 mkdir 

FUI'CTIOK - 

"rnkdir" makes a directory entry from the name pointed to by 
u.unair.ep into the? current directory. It^firrt clear? the 
locations u.dirbuf+2 - u.dirbuf+10. "rnkdir" th' n roves a 
character at a tire into u.dirbuf+2 - r. . ^irbuf+1 , checking 
each tiuie to see if the character is a ' / . If it is an 
error occurs, because / should net appear in a director 1 / 
na me . 

I pointer to an empty directory slot is then pnt in u.off. 
The current directory i-node is brought into core ans" an 
entry is written into the directory. 

AP.GU*IEKTE -. 

I UP UTS - 

r2, u.np.mep - points to a file name that is about to 

become a director 1 / entry. 
r3 - points to u.dirbuf locations. 
ii - current directory's i-nurvber. 

OUTPUTS - 

u.dirbuf+2 - u.dirbuf +10 - contains file name 

u.off - points to entry to be filled in the current directory 

u.base - points to start of u.dirbuf 

r1 - contains i-number of current directory 

See wdir for others. 
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ID U2-4 namei 
?u::ctic:t - 

"namei" taken a file path name (address of string in 
u.narfsep) and searches the current directory or the root 
directorv (if the first character in the string pointed to 
by u.namep is a '''/") and returns the i-numbcr for the file 
in r1 . namei operates in the following ranner; 

A file ray be referenced in one of two ways?; cither relative 
to the users directory or relative to the rcetdir director/; 
in the second care the file path nape r,u?t begin with the 
char /. Whenever a / is encountered in a path name it indi- 
cates that the characters proceeding it represent the path 
name of a directory, and the file name following the / is 
stored in that directory. 

Directories contain 10 byte entries, the first 2 bytes con- 
tain an i -number, the last 8 bytes a file --re associate 
with the i -number. 

namei scans the file path name until it reaches a / or a 
nul it reads the current directory until it finds a file name 
which matches the scanned portion of the file path name. 
Uhen a match is found, the i -number is taken from the 
matched directory entry. If namei has scanned to a nul then 
the i-numbor is that for the f ile tf specif ied by the file path 
name. If namei scanned to a "/" then the i-number is that 
of the ne>:t directory in the path. namei scans the file 
path name until it reaches a "/" or a. nul, etc. If no file 
is found return to nofile; otherwise normal. 

CALLIITC SPCUZKCP - 

jsr rO , namei; nofile; normal: 

ARGUKEI7TS - 

INPUTS - 

u.narnep (points to a file path name) 

u.cdir (i-number of users directory) 

u.cdev (device number on which user directory resides) 

r1 - contains the i-mimber of the current directory (u.edir) 

OUTPUTS - 

r1 (i-number of file referenced by file path name) 

r2, r3, r4 (internal) 

u.dirb - points to the directory entry where a match occurs 

in the search for the file path name. 

If no match u.dirb points to the end of the 

directory and 

r1 = i-number of the current directory 
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ID U2-C soektell 

soektell outs the- a r cur-ants from a sysreek and systell cr-11 
in u.bnse nnr 1 . u. count. It then gets the i-number of the 
file from the file c?escrintor in *u.rP an- by calling getf . 
The i-noic is brought into core r.nc'. then u. count is checker'' 
to see if it is a C, 1 or 2". 
If it is - u. count stays the same 

1 - u.ccunt = offset (u.fofp) 

2 - u. count t= i.size size of file 

C'ALLIKC rr.CLTlTCE - 

jsr rC , seektell 

ARGUMENTS - 

IUFUTS - 

u.base - puts offset from syssec-k or systell call 
U. count -' put pfrnsme from sysseek or systell call 
*u.rO - contains file descriptor (index to u.fp list) 
i.size - size of file in bytes 
#u.fofp - points to 3rd word of fsp entry 

OUTPUTS - 

an i-nocTe in core via iget 

r1 - i -number of file in question 

u.ccunt - see function above 
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ID U2— 7 sycbrcak 

"sysbroak" s-.ts the procjra'-s break point. It checks tbo 
current break point (u. break) to see if it is bef.-reen core 
and the stack (rp). I- it is, it is rn^de an even address 
(if it was odd) and the area between inbreak and the stack 
is cleared. The new breakpoint is then put in inbreak and 
control is passed to sysret . 

CALLING EECTJFI'CE - 
svsbreak; addr 

APrunp-iTTE - 

addr - address of the new break point 

I1TUTE - 

u. break - the current break point 



OUTPUTS - 

u.br-~ak - contains new break point 

ar^a between old u. break and stack is cleared if inbreak is 

•• ' •• , , , ii ii 

bet'.-: ocn core and the stack sp . 
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ir U?-G syschdir 

pyrcl^ir makes the directory specified 1 , in it? argument the 
current working directory. 

s y sc he! i r ; nr. nc 

name - address of the path name of a directory terminated by 
a mil byte . 

i.flgs - i-ncde flag 

r1 - contains i -number 

cd.cv - contains device number of i-node 

OUTPUTS - 

r1 - contains i -number 

u.cd.ir - i -number of users current directory (same as r1 ) 

u.cdev - device number of current directory 
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ID U2-2 syscrcc 

FUNCTION - 

sysexcc initiates execution of a file whose oath na™^ if 
pointed to by name in the sysoxec call. syserec performs 
the following operations: 

1. obtains i— number of file to be executed via nr.rci . 

2. obtains i-node of file to be executed via iget . 

3. sets trap vectors to system routines. 

4. loade arguments to be passed to executing file into 
highest location? of user's core. 

5. put? pointers to arguments in locations immediately fol- 
lowing arguments. 

5. save number of arguments in next location, 

7. initializes user's stack area so that all registers will 
be zrroe'' an." the PS cleared snil the PC net to core when 
s^sret restores registers and dees an rti. 

8. initializes u.ro and u.'sp. 

9. ceres user's core down to u.ro. 

10. reads in executable file from storage device into core 
starting et location core • 

11. sets u. break to point to end of user's cede with data 
area appended. 

12. calls sysret which returns control at location "core" 
via rti instruction. 

continued on page 17 
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.""ho lav-cut c r : core v;h:-n F-'scxec calln m'sret it 



user prcg 



zercK 



zeros 



<...\0> 



<...\0> 



core 







n 



argpl 



argpn 



ccrr 



(u.brenk) 



(u.sp) = (so) 



(u.rO) : (u.pp) + 16 



arcpi 



argp2 



arcon 



ecorR 
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calli^c cecuekce - 

sys c:-:cc; nnrep; argp 

n?..T.f;b (pointr to file path nsrne of file to he executed 

argp (arldrcrs of table of argurent pointers) 

arcpl,..., argpn (tabic of arcurrent pointer?) 

argol : <...C>, tiry?2: <... n >, . .., srgpn: <...C> (argument 

strings) 

IMP UTS - 

narrep 

-rgp 

OUTPUTS - 



Issue p Date 3/17/72 It)' ' 'IFfM •**:■ '■'•'■■■ Section H.2 Page 19 



lviix i?'PLrvF!rr^TiOK 



ID U2-' sysfsizat 

rU^CTIC.'T - 

"sysfstat" in identical to sysstat exeunt that it operator; 
en open fi3.es instead cf files given by name. It puts the 
buffer address en the stack, gets the i-nunber and checks to 
sec if the file is. open for reading or writing. If thn file 
is open for v.'riting (i-nunber is negitive) the i -number is 
set positive and a branch into sysstat is rado. 

CALLIKG EECUENC" - 
sysfstat; buf 

AP.GUKEMT - 

buf - buffer address 

INPUTS - 

(xa.rO) file descriptor 

OUTPUT" - 

buffer is loaded with file information. Sep UNI y Pro- 
grammers Manual under sysstat (II) for format cf tb^ buffer. 
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IP U2-9 sysgetuid 

FUITCTIOH - 

"sysgetuid" returns the reel urer IT) of the current process. 
The real user ID identifier? the person who is lcr;gcd in, in 
contradistinction to the effective user IT*), which determines 
his access permission at each moment. It if? thus usefr! te 
programs v:hich operate using the set user ID mode, to find 
out who invoked then. 

CALLING SEQUENCE - 
syscjetuid 

AFGUMrOTS - 

INPUTS - 

u.ruid - real users id 

OUTPUTS - 

(u.rO) - contains the real users id. 



Issue I) Date 3/17/72 1© £«f|^^f Section *U2 Page 21 



TTMIX IMPLE'T^VrieE 



ID U2-B sysintr 

FUKCTIOM - 

"sysintr" sets the interrupt handling tt value. n It nut? the 
arc;u::nnt of it;:- cell In u.intr. "sysintr" then branches 
into the "cysquit" routine. u.tty ir. c he cite 7 to e^r- i.f a 
control tty exists. If one does the interrupt character in 
the tty buffer if clearer"! and sycret ir called. If one does 
not exist sysret is just called. 

CALLIMC SEQUENCE - 
sysintr; arg 

ARGUMENT - 

artj - if 0, interrupts (ASCII DELETE) are ignored. 

- if 1 , interrupts cause their normal result, 
i.e., force an exit. 

- if arg is a location within the program, control 
is passed to that location when an interrupt 
occurs • 

IKFUTS - 

u.tty - pointer tc control tty buffer. 

OUTPUTS — 

u.intr has value of arg. 

(rl)+5 (interrupt char in tty buffer) is cleared if a 

control ttv exists. 
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ID U2-1 



: 1 ■"' n 1 



syslink is gjiven tmo arguments , name 1 and name 2. nan? 1 
is a file that already exir.tr. nare 2 is the n?r\<-< given to 
the entry that will gc in the current directory, name 2 
v;ill then be a link to the name 1 file. The i-number in the 
name 2 entry of the current director 1 / is the same i-nurrber 
for the. nare 1 file. At the end of a syslink call the fol- 
lov:inc structure is constructed. 



current 
directory 



name 2 entry 



i-node 


for 


name 1 


file 




some other 
directory 

name 1 



CALLING S^CUEKCr — 

syslink; narr.el ; name2 

ARGUMENTS - 

name 1 - file name to which link will be created. 

name 2 - name of entry in current directory that links to 

name 1 . 

I IIP UTS - 

u.namep - points to the arguments above. 

OUTPUTS - 

entry in the current directory v:ith name, name 2. 

r1 - contains i -number of name 1 on exit and i-number of 

current directory intermittently during subr. 

i.nlks - incremented by 1 to indicate another link added. 

irrod - set by call to setimod. 
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IP U2-G syrquit 

T-"ji'CTI02T — 

sysquit turns off the quit signal. It puts the argument of 
the call in u.quit. u.tty is checker', to nco if a control 
tty exists. If one docs, the interrupt character in the tty 
buffer is cleared an.1 sysret is called. If one does not 
exist, sysret is just called. 

eysquit; arg 

m-cu':emt - 

arc - if this call disables quit signals from the ty^evrrite: 
(ASC11 FS). 

- if 1 , quits rre re-enabled and cause execution to cease 
and a core image to be produced. 

- if an address in the prograr., a quit causes control tc 
be rent tc that location. 

INPUTS - 

u.ttv - pointer tc control tty buffer. 

OUTPUTS - 

u.quit - has value of arg 

(r1 )+C - (interrupt char in tty buffer) is cleared if a con- 
trol tty exists. 
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TV,',1C1I0i: - Tee "sysret" routine 

ft 

CALLING GECUSITCE - 

ft 

01""7 , T}TT r pc; _ 
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in U2-1 :;ysret * 

riJITCTICl: - See "sysret" routine 

n 

tf 

■ 7 - 1 ic ui I'R r tt r* — 

INF UTS - 
OUTPUTS - 
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I!' U2-1 nyr-ret ° 

FU1TCTI01"' - £ee "sysrct" routine 

CALLiivr SEC"r:;cF. - 

•t 

7 ~?<-Tl"T"\T ^ — • 

A .4. -■--. Ui i- * A »-^ 

INPUTS - 
OUTPUTS - 
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ID U2-0 sysscek 

FUNCTION - 

sysseek changes the r/v; pointer (3rd were' in ^n frp ontr/) 
of an open file vrhoro file descriptor is in u.rO. 

The file descriptor refer? to a file open fcr reading or 
writing. The read (or write) pointer fcr the file in set ar 
follows: 

if ptrn?re is C, the pointer is set to of fret. 

if ptrnarre is 1 , the pointer in set to its current loca- 
tion plus offset. 

if ptrname is 2, the pointer is set to the size of the 
file plus offset. 

The error bit (e-bit) is set for an undefined file 
descriptor. 

CALLIir SEQUENCE - 

sysseek; offset; ptrnarre 

z>pe-t_T'"epTF — 

offset - nunber of bytes desired to move the r/v? pointer by 
ptrnarre - a switch indicated above 

I IIP UTS - 

u.base 

u. count (See seektell) 

OUTPUTS - 

u.fofp - points to the r/v? pointer in the fsp entry. 

The r/w pointer is changed according to offset and ptrnare. 
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IP U2— ■!• sysctat 

"ryrctat" gets the statue of a -file. Itr -.rgunor.tr, are the 
r,?ir;c of the file and a buffer adxlrer.e. Thr huffy r ir 34. 
byte:- long and information about the file ir plac-d in it. 
rm/rrtrt cellr "nnr.ei" to ret the i -number of the file. Then 
"igct" ir called to get the i-ncde in core. The buffer ir 
then loaded and the results are given in the UNIX Pro- 
grammers Manual ryes tat (II). 

syrr.tat; rare; huf 

naire - points to the name of the file < 
buf - address of a 34. byte buffer 

IK? UTS - 

sp - contains the address? of the buffer 
r1 - i-nurbcr of file 

OUTPUTS - 

buffer is loaded, with file information. 
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ID U2-9 cyssetuid 

A. *..' A. • ^ J. J. ^.. ■ "" 

"syssetuid" sets t"he user id u.uid of the current process to 
the process id (u.rO). "oth the effective user and u.uid 
and the real user u.ruid are set to thin. Only the super 
use end make this call. 

CALLIivC S'ZCUZKC" - 
syssetuid 

ui." - 

(u.rC) - contains the process id 
u.ruid - real user id 

u.uid - effective current user id 

OUTPUTS - 

u.ruid - set equal to the process id (u.rC) 
u.uid - set equal to the process id (u.rC) 
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IP U2-7 sysrtip.ie 

FrncTio:: - 

"cvfistirnc" cotr the tine. Only the sr.per ur-er can use thin 
cr.il. 

r\?r" M ti TIP 

I IT UTS - 

np+2, f»r3+'' 1 - time system, ir to be r^t to. 

s.tir.o, n.time+2 new time system ir set to. 
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rUHCTIO" - 

"rr/Etir^e* cjctn the tire of the y=nr. The 
out en the rtack. 



^^^cr.inf tirnr* i 



CALLiir s::c T ~i:::cr. - 

systine 



IKPUT' 



s.tir.e, c.tirc+2 - present time 



OUTPUT .9 - 

sp+2, sp+4 - present tir^e 
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I T : U2-1 sysunlink 

"sysunlink" recover the entry for the file pointed to V' 
name from its directory. If this entry war- the last link to 
the file, the contentr of the. file are freer! ?n:' the file ±r 
destroyed. If, however, the file vipf: open in any process, 
the actual destruction is delayed until it is closed, even 
though the directory entry has disappeared. 

The error bit (e-bit) is set to indicate that the file does 
not exist or that its directory cannot he written. Vrite 
permission is not required on the file itself. It is also 
illegal to unlink a directory (except for the super-user) . 

CALLIPG CPC'UEllCE - 
sy clink; name 

AKCur:EOTS - 

name - name of directory entry to be re roved 

INPUTS - 

u.namep - points to name 

r1 - i -number associated with name 

OUTPUTS - 

i.nlks - number of links to file gets decremented 
u.off - gets moved back 1 directory entry 
imod - gets set by call to setimod 

if name was last link, contents of file freed and file des- 
troyed 

entry "name" in directory is free (its first word that usu- 
ally contains an i-number is zeroed. 
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ID "2-2 V7t.-.ir 

„ Oi.v J. J.U'i — 

v;d.ir - write a directory entry into the current directory 
whose i -number is in ii. 

C2.lli::c C2cu::::cr; - 

jsr rC, wdir - in syslink 
fellows nkdir directly 

APCUMEKTS - 

IMPUTE - 

u.dirhuf - address of where nare of directory is kept 
ii - contains the current directories i-rmrfber 

OUTPUT? - 

an entry in the current directory 

u.base - points to u.dirbuf 

u. count - = 10 

r1 - contains the current directory's i-nunher 
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ID U3-3 clear 

FUNCTJON - m 

clear zero's out a block (whose block number is In rl ) on 
the current device (cdev). "clear" does this in the follow- 
ing manner t 

1) 'w slot' is called, which obtains a free I/O buffer (See 
'poke* H.8 f page 5) via 'bufaloc*. 

Bits 9 and 15 of the 1st word of the I/O queue entry are set 
to set up the buffer for writing. 

2) The buffer is zeroed and written out on the current dev- 
ice for the block (indicated by rl ) via 'dskwr'. 

CALLING SEQUENCE - 

jsr r0» clear 

ARGUMENTS - 

INPUTS - 

r1 - contains block number of block to be zeroed 
cdev - current device number 
r5 - points to data area of a free I/O buffer 
See Inputs for bufaloc, wslot, dskwr 

OUTPUTS - 

a zeroed I/O buffer onto the current device 

r5 - points to last entry in the I/O buffer 

r3 - has in it. It counts from 256-0. It is used as 

a word counter in the block. 
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ID U3-3 copyz 

FUNCTION - 

clears core from argl to arg2* 

CALLING SEQUENCE - 

jsr rO* copyz; argl ; arg2 

ARGUMENTS - 

argl - address of lowest location in core to be cleared* 
arg2 - address of highest location In core to be cleared* 
argl < arg2 

INPUTS - 

rO - return address for the routine calling copyz* It is 
used to access argl, then arg2 and. finally, set to the 
actual return address of the calling routine* 

OUTPUTS - 

rO - points to the next instruction to be executed in the 
calling routine* 
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ID U3-3 idle 

FUNCTJON - 

idle saves the present processor status word on the stack 
then clears the processor status word* 

clockp is saved on the stack. It points to one of the clock 
cells in the super block, clockp is then made to point to 
another set of clock cells specified as an argument in its 
call. 

When an interrupt occurs clockp and the processor status 
word are popped off the stack thus being reset to their 
values before the call took place* 

CALLING SEQUENCE - 
Jsr rO, idle 

ARGUMENTS - 

s.wait + 2 

INPUTS - 

ps - process status 
clockp - clock pointer 

OUTPUTS - 

ps - restored to original value 
clockp restored to original value 
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ID U3-3 putlu 

FUNCTION - 

putlu is called with a process number in r1 and a pointer 
to the lowest priority Q (rung+4) in r2. A link is created 
from the last process on the queue to the process in r1 by 
putting the process number in r1 into the last process's 
link. (The last process's number slot in p. link. ) The pro- 
cess number in r1 is then put in the last process portion 
on the queue* If the last process on the queue was L and 
the process number in r1 was n then upon return from putlu 
the following would have occuredt 






-.____—.__._■«._ 


n 


m m 



previously held 
ARGUMENTS - 



| 

runq+4 | n | p. link + L-1 

1 byte in length 



INPUTS - 

rl - user process number 

r2 - points to lowest priority queue 

OUTPUTS - 

r3 - process number of last process on the queue upon 

entering putlu 
p.link-1 ♦ (r3) - process number in rt 
rl - points to lowest priority queue 
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ID U3-2 rswap 

FUNCTJON - m 

rswap reads a process , whose number is in r1 , from disk 
into core* 2 * (the process number) is used as an index 
into p. break and p.dska. The word count in the p. break 
table is put in the 3rd word of the swp I/O queue entry. 
The disk address in the p.dska table is put in the second 
word. The first word of the swp I/O queue entry is set up 
to read, (bit 10 set to a 1 ) and ppoke is called to read 
the process into core. 

CALLING SEQUENCE - 
Jsr r0 t rswap 

ARGUMENTS - 

INPUTS - 

rl — contains process number of process to be read in 

p. break - table containing the negitive of the word count 

for the process 
p.dska - table containing the disk address of the process 
u.emt - determines handling of emt's 
u.ilgins - determines handling of illegal instructions 

OUTPUTS - 

10 » (ilgins) 

30 m (u.emt) 

swp - bit 10 is set to indicate a read (bit 15*0 when reading 

is done) 
swp-*- 2 - disk block address 
swp+4 - negitive word count 



Issue D Date 3/17/72 ID IM0.1-1 Section H.3 Page 5 



UNIX IMPLEMENTATION 



ID U3-t swap 

FUNCTION - 

swap is the routine that controls the swapping of processes 
in and out of core. It works in the following manner: 

1) The processor priority is set to 6. 

2) The runq table is searched for the highest priority pro- 
cess. If none are found, idle is called to wait for an 
interrupt to put something on the queue. Upon returning 
after an interrupt, the queues are searched again. 

3) The highest priority process number is put in r1 . If it 
is the only process on that queue the queue entry is zeroed. 
If there are more processes on this queue the next one in 
line is put in the queue from p. link (see F, page 9). 

4) The processor priority is set to 0. 

5) If the new process is the same as the process presently 
in core, nothing happens. If it isn't, the process present- 
ly in core is written out onto its^corresponding disk block 
and the new process is read in. "wswap" writes out the old 
process, "jrswap w reads in w th§ new one. For more informa- 
tion see wswap", "rswap , unpack and pl7 of Implementa- 
tion Manual. 

6) The new processes stack pointer is restored. The ad- 
dress where this procesg left off before it was swapped out, 
is put in r0. So when rts rO is executed this new process 
will continue where it left off. 

ARGUMENTS - 

INPUTS - 

runq table - contains processes to be run. See F, page 9. 

p. link - contains next process in lone to be run. See F, page 9. 

u.uno - process number of process in core. 

s. stack - swap stack used as an internal stack for swapping. 

OUTPUTS - 

present process to its disk block 

new process into core 

u. quant ■ 30. (Time quantum for a process) 

u.pri - points to highest priority run Q 

r2 - points to the run queue - 

rl - contains new process number 

ps - processor status * 

rO - points to place in routine or process that called swap 

all user parameters 
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ID U3-1 tswap 

FUNCTION - „ 

tswap is the time out swap. tswap is called when a user 
times out* The user is put on the low priority queue* This 
is done by making a link from tfce las£ user on the low 
priority queue to him via a call to putlu • Then he is 
swapped out* 

CALLING SEQUENCE - 
Jsr rO, tswap 

ARGUMENTS - 

INPUTS - 

u.uno - users process number 
runq+4 - lowest priority queue 

OUTPUTS - 

rO - users process number 

r2 - lowest priority queue address 



Issue D Date 3/17/72 ID IMO.1-1 Section R.3 Page 7 



UNIX IMPLEMENTATION 



ID U3-2 unpack 

FUNCTION - 

unpack unpacks the users stack after swapping and puts the 
stack in its normal place* Immediately after a process is 
swapped in its stack is next to the program break. unpack 
move the stack to the end of core. 

If u. break is less than core or greater than u.usp nothing 
happens. If u. break is in between these locations, the 
stack is moved from next to u. break to its normal location 
at the end of core. 

CALLING SEQUENCE - 
Jsr rO, unpack 

ARGUMENTS - 

INPUTS - 

u. break - users break point (end cf users program) 

OUTPUTS - 

stack gets moved if proper conditions stated above are met* 
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ID U3-1 wswap 



FUNCTION - m 

wswap writes out the process that is in core onto its 
appropriate disk area. The process stack area is copied 
down to the top of the program area to^speed,, up I/O* The 
word count is calculated and gut in w swp+4 ft The disk ad- 
dress (block number) is~put w in swp+2 • swp is set up to 
write by setting bit 9 and ppoke is called to initiate the 
writing* The area from user to the w end of the stack is 
written out* The I/O queue entry swp is shown below Just 
before the process is written out by ppoke. 



| 

| bit 9 among others is set 
| 

| disk block address 
| neg* word count 



constant | user (address to start 
l writing from) 

ARGUMENTS - 

INPUTS - 

u* break - points to end of program 

u.usp - stack pointer at moment of swap 

core - beginning of process program 

ecore - end of core 

user - start of user parameter area 

u.uno - user process number 

p*dska - holds block number of process 

OUTPUTS - 

swp I/O queue (see above) 

p .break - negitive word count of process 

r1 - processes disk address 

r2 - negitive word count 



When the writing is 
swp done, bit 15 is 

cleared* 
swp+2 

swp +4 

swp+6 
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ID 04-1 clock 



FUNCTION - 

"clock handles the interrupt for the 60 cycle clock. It 
Increments the time of day, increments the appropriate time 
category and decrements the users time quantum* It then 
searches through the toutt table and does the following: 

1) If the processor priority is high' (>4) and the time in 
the toutt entry is not zero (^0), the time in the entry is 
decremented. If it turns when decremented it is incre- 
mented so that it will turn next time when the priority 
might be low (see 2 below). 

2) If the processor priority is low and (1) the user is not 
timed out or (2) we are presently inside the system and a 
toutt entry gets decremented to 0, the corresponding routine 
in the touts table is called. If the toutt entry was 
before decrementing nothing happens. If the user is timed 
out and we are outside the system the users rO is restored 
to him and "sysrele" is called to swap him out and bring in 
another process. 

CALLING SEQUENCE - 

interrupt vector 

ARGUMENTS - 

INPUTS - 

Iks - clock status register 

s.tircie*2 - tlirurs of day 

clockp - points to one of the clock cells in the super block 

u. quant - •use.i.v? time quantum 

8%-:jfIg - system flag •*• 1 is outside systgn:,. is i reside 
toMtt - tab?. a ot byt-s-e. Each byte Is a t:Uv.-» count 
to st?t - table of entry points of subroutine 

OUTPUTS - 

s.time+2 - inc. r^nented 

clockp — incremented 

u.qup.nt - decremented 

toutt -- entries decremented 

rO - contains users rO if conditions of (2) above are wet 
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ID U4-3 ppti - paper tape input interrupt routine 

FUNCTION - , 

ppti does one of following dependent on value of pptlflg 

1. If "pptlflg" indicates file not open (*0) t nothing is 
done* 

2. If "pptlflg" indicates file Just opened (s2), a check is 
made to determine if the error bit in prs is set. If it is 

pptito" is called to place I/O in the toutt entry for ppt 
input. If^the error bit is not set, pptlflg is^changed to 
indicate "normal operation (set to 4) and wakeup is 
called to wakeup process identified in wlist for ppt input. 
Also, the character in the prb buffer is placed in clist if 
there is room. If there is no room, the character is lost* 
Finally a check is made to determine if the character count 
in the ppt input area of clist has less than 50 characters. 
If it does, the reader enable bit is set. 

3. If "pptlflg" indicates file normal («4) the w process in 
the ppt input entry of wlist is woken up (via wakeup )• A 
check is then made to determine if the error bit in prs is 
set. If it is, the "pptlflg" is set equal to 6. If it %& 
not the contents of prb are placed in the clist via putc • 
If clist is full f the character is lost. In addition if the 
character count for ppt input in the clist is less than 50, 
the reader enable bit is ret. 

4. If "pptlflg" indicates the file is not closed (»6), this 

ie an Indication that the error bit was set when pptlflg 
equalled four and therefore nothing is done. 

CALLING SEGvi^CE - 

ppti is the paper tape input interrupt routine 

INPUTS - 

pptlflg «- flag which indicates function tubs performed 

prs — paper tape read status bits 

cc*2 - character count for ppt input in clist 

prb — input character 

OUTPUTS - 

pptiflg - (see above) 
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ID U4-4 isintr 

FUNCTJON - 

"isintr'* checks to see if an interrupt or quit from a tty 
belongs to the current user* If so, it won't skip on 
return; if not it will skip. When the interrupt does belong 
the output list in clist is erased via calls to getc. This 
prevents output coming out after the interrupt key is hit. 
Nothing happens except the return Is skipped when: 

Case I 

1) u.tty, the tty buffer pointer * 

2) interrupt character in buffer * 

3) interrupt char » delete and u.intr * 

4) char » fs" and u.quit » 

5) no tty block is found that matches u»tty 

Case II 

The return is not skipped and^the output gets flushed if t 

1 ) interrupt character = f s u.quit ^0 and the tty block in 
control is found M m 

2) interrupt character « delete and u.intr 40 and the tty 
block in control is found, 

CALLING SEQUENCE - 
jsr r0 f isintr 

INPUTS - 

u.ttyp - pointer to buffer of tty in control of the current process 
u.intr - determines handling of interrupts if - nothing happens 
u.quit — determines handling of in 'corrupts if - nothing happens 
tty+6 - pointer to buffer or first tty bioc5c 

OUTPUTS - 

Case I - nothing except return is skipped 
Case II - processor priority a 5 

gets - erases the output character list 
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ID 04-4 pptito - paper tape input touts subroutine 

FUNCTION,,- 

If "pptiflg" indicates the file has Just been opened («2), 
"pptito* 5 j 

1. places 10 in the toutt entry for ppt input 

2* checks error bit in prs and sets reader enable bit If 
error bit not set. 

For all other values "pptiflg" pptito does nothing* 

CALLING SEQUENCE - 
jsr rO, pptito 

INPUTS - 

pptif lg - values of this parameter indicates to pptito the 
function it is to perform 
prs - status of ppt reader 

OUTPUTS - 

toutt+1 . contains tic count ( = 10) for ppt input 
prs - read enable bit 
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ID D4-3 ppto - paper tape output interrupt routine 

FUNCTION - 

Calls starppt to output next character in diet ppt output. 

CALLING SEQUENCE - 

interrupt routine 

INPUTS - 

see inputs for "starppt" 

OUTPUTS - 

see outputs for "starppt" 
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ID U4-5 sleep 

FUNCTION - 

sleep puts the process whose process number Is in u.uno on 
the wait list (wlist) and swaps it out of core. It works in 
the following wayi 

1 ) A wait channel number is given as an argument to sleep. 
The process number occupying that chafcnel is saved on the 
stack. The process number that is getting put to sleep 
(u.uno) is put in that wait channel. 

2) A call is made to "isintr" to see if that user has any 
interrupts or quits. If he does a return to him via sys- 
ret" is made. If he doesn't swap is called to swap out the 
process so it can sleep. 

3) A check is made on the new user (the one who got swapped 
in) to see if he has any interrupts or quits. If not, a 
link is created to the old process number that first occu- 
pied the wait channel by a call to "putiu" a normal return 
is then made. 

CALLING SEQUENCE - 

jsr rO, sleep? arg 

ARGUMENTS - 

4ft I^V ».*«■» 4 ** «T'i»* "iWif^'ll ^••*-—? 1 - -» <UB 

INPUTS - 

u.urx» ■» process.^ number that gets put to deep 
w.liBt •» wait channel list 

rung*' - iCM'-:iiit prior it-/ ran 

OUTPUTS - 

sleeping proc?'?/.;.; number Cfito wlist 
si &■;..;; a ;;.l-.j proctor; onto disk 
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ID 04-2 ttyi 

FUNCTION - 

"ttyi puts a character from the tty reader buffer in r1 
sets the enable bit of the tty status register, and strips 
the character to 7 bits. Depending on what the character is 
the following things may occur: 

1. If the character is a letter {A-Z)* It is changed to 
lower case and put on the clist via putc • It is then put 
on the tty output buffer via startty • If the number of 
characters on that clist (cc) exceeds 15a call to wakeup 
is made to clear that list. If less than 15 nothing else 
happens. 

2) If the character is a "}" or a "del". If also, the last 
tty blocks buffer pointer is zero wakeall is called and all 
processes are put on the low priority queue. 

If the last tty blocks buffer pointer to the char (}or del) 
is put in the 7th byte of the buffer and wakeall is called. 

3) If the char is an "eot" or "nl" 

cc is not checked and wakeup is called. 

CALLING SEQUENCE - 

INPUTS - 

tkb - tty reader buffer 

tks - tty reader status register 

cc - number of characters en the character list. 

OUTPUTS « 

r1 is used to contain the character 

ttyoch — has the character 

see function for other outputs depending on what the character is, 
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ID 04-3 ttyo 

FUNCTION - 

"ttyo" is the console typewriter output interrupt routine. 
It calls setlsp to save registers during the interrupt then 
calls startty to put the character in the tty output buffer 
and then restores the registers and returns from the inter- 
rupt. 

CALLING SEQUENCE - 

interrupt routine called via trap 

ARGUMENTS - 

INPUTS - 

character in ttyoch 

OUTPUTS - 

see startty 



Issue D Date 3/17/72 ID IMO.1-1 Section H.4 Page 8 



UNIX IMPLEMENTATION 



ID U4-2 wakeall 

FUNCTION - 

"wakeall wakes up all the processes on the wait list by 
making consecutive calls to wakeup going through all the 
wait channels. The processes are linked to gether on the 
lowest priority queue (runq+4) used to notify the world when 
a quit or interrupt happens from a typewriter. 

CALLING SEQUENCE - 

jsr rO, wakeall 

ARGUMENTS - 

INPUTS - 

OUTPUTS - 

all sleeping processes are put on the lowest priority queue. 
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ID U4-5 wakeup 

FUNCTION - 

wakeup is called with two arguments: argl is one of the. run 
queues and arg2 is a wait channel number, wakeup wakes the 
process sleeping in the specified wait channel by creating a 
link to it from the last user process on the n run M queue 
specified by argl • This is done by, a call to putlu • If 
there is no process to wake up, (wait channel contains a 0) 
nothing happens. 

CALLING SEQUENCE - 

jsr rO, wakeup; argl ; arg2 

ARGUMENTS - 

argl - points to one of the three run queues 

arg2 - is the number of the wait channel of the process to 

be awakened. 

INPUTS - 

wlist — wait channel 

u.pri - users process priority 

OUTPUTS - 

if u.pri > argi uguant » 

wlist (r3) ss - entry in wait channel s 

r2 -is used to point to one of the run queues 

r3 - contains the num&er or the W9.it channel 
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ID U4-5 starppt 

FUNCTION - 

"starppt" checks the character count for pgt output in „the 
clist. If it is greater than^lO, starppt uses Makeup to 
wakeup process identified in "wlist" entry for ppt output, 
"starppt" then checks the ct ready bit in the punch status 
word. If it is set, "starppt" uses getc to fetch the next 
character in the clist and then place's it in prb. 

CALLING SEQUENCE - 

Jsr rO, starppt 

INPUTS - 

cc+3 - character count for ppt output in clist 
pps - contains ready bit 

OUTPUTS - m 

See outputs for getc and wakeup 
ppb - ppt output buffer 
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ID U4-3 retisp 

FUNCTION - 

"retisp pops the stack and restores the values of rO, r1 , 
r2, r3 and clockp to what they were before the interrupt 
occured. retisp then executes an rtl and returns* 

CALLING SEQUENCE - 
jmp retisp 

ARGUMENTS - 

INPUTS - 

OUTPUTS - 

rO, r1 , r2, r3, clockp 

CALLED BY - 

trapt 
CALLS - 
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ID U4-1 setisp 

FUNCTION - 

setisp stores r1 , r2, r3 and clockp on the stack* Puts 
$s.systt2 in clockp and returns via a jump without popping 
the stack, 

CALLING SEQUENCE - 
jar rO, setisp 

ARGUMENTS - 

INPUTS - 

OUTPUTS - 

CALLED BY - 
drum 

CALLS 
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ID 04-4 startty 

FUNCTION - • 

"startty prepares the system to output a character on the 
console tty. It performs the following operations t 

1 - some fooling with wakeup? 

2 - tests console output status register read bit, If bit 
is clear; return • 

3 - if bit is set check time out byte for console 
(toutt), if non zero; return. 

4 - if toutt is zero, put char to be output in rl . 

5 - load character in console data buffer register. 

6 - if char » If, make next char to be output a cr. 

7 - if char « ht or cr, set time out to 15 clock cycles* 

CALLING SEQUENCE - 

jsr rO, startty 

ARGUMENTS - 

ttyoch (character to be output), toutt 

OUTPUTS - 

tpb (loads a character in tty output data buffer register), 
r1 (character output), toutt. 
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ID U5-3 access 



FUNCTION - M 

reads in section of core beginning at location inode the 
i-ncde for file with i-number n. Checks whether user is 
owner and whether user can open f£le for w reading or writing 
based on file protection bits in i.flgs (see Section G). 

CALLING SEQUENCE - 

jsr rO, access; arg* 

ARGUMENTS - 

argO (user, owner flagmask) 

INPUTS - 

r1 (i-number of file), u.uid, i»uid 

OUTPUTS - 

inode, r2 (internal) 
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ID U5-2 alloc 

FUNCTION - 

alloc scans the free storage map of the super block of a 
specified device. When it finds a free block it saves the 
physical block number in r1 , it then sets the corresponding 
bit in the free storage map and sets the super block modi- 
fled byte (smod, mmod). 

CALLING SEQUENCE - 
Jsr rO, alloc 



ARGUMENTS - 

r2, r3 



INPUTS - 

cdev (current device), 



OUTPUTS - 

r1 (physical block number of block assigned), smod, mmcd, 
systro (drum super block), mount (dlsraountable super block), 
r2 (internal), r3 (internal). 
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ID U5-2 free 

FUNCTION - 

Given a block number for a block structured I/O device, 
'free' calculates the byte address and bit position of its 
associated bit in the free storage map of the in-core image 
of the superblock for the device (rf fixed head disk or 
mountable device super block). It then declares the speci- 
fied block free by setting this bit. Then a flag is set to 
indicate that; 

1 ) the super block for the rf -fixed head disk has been 
modified (smod ■ smod+1). 

or 

2) the super block for a mountable device has been modi- 
fied (mmod * mmod+1). 

CALLING SEQUENCE - 
jsr rO, free 

ARGUMENTS - 



INPUTS - 

byte mask table; 



Mask for bit 1 | 2| 1j Mask for bit 

.2 




r1 - block number for a block structured device? 

cdev r current device; O^drum, nDnsseroarncuntable device 

OUTPUTS - 

mount - systm+(r2) word in free storage map portion of the 
in core image of tha stipe;.: 1 block for a countable device. If 
the device is mountable the appropriate bit is set to free 
the block. If the device is not mountable, the bit remains 
unchanged. 

systm+2+ ( r2 ) same as above, but for drum with the super 

block for the fi:ced head disk. 

mmod - is incremented if the superblock for the mountable 

device was modified. 

smod - is incremented if the superblock for the drum was 

modified. 

r2 - saved on stack and restored on return 

r3 - saved on stack and restored on return 
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ID US-4 icalc 



FUNCTION - 

icalc calculates the physical block number from the i-number 
of an i-node. It then reads in that block and calculates 
the byte offset in the block for the i-node with the partic- 
ular i-number, then depending on whether the argument in the 
icalc call is a or a 1 it reads the w inode in the data 
buffer in core starting at location inode (argument «0). 
Or it will take the inode Information currently stored at 
location "inode" and write it out on the device (argument * 
1). 

The physical block number and byte offset for an inode is 
calculated as follows: 

let n a i-number, pbn * physical block number, bo ■ byte 
offset 

then pbn = (n+31)/l6 

and bo a 32.* ((n*31.) mod 16,5 (See Section F for gen- 
eral discussion of inodes*) 

CALLING SEQUENCE - 

jer rO, icalc j arg 

ARGUMENTS - 

eag « 1 write inode 

INPUTS »« 

inode - rl (i-nurober) 

W ■ (J* '■*. f •*! *» d: "^ 

inode - r1 (internal), r5 (internal), r3 (internal) 
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ID U5-4 iget 

FUNCTION - m 

"iget" gets a new i-node whose i-number is in ri and whose 
device is in cdev. If the new i-number and its device are 
the same as the current i-number and its device (r1=ii and 
cdevaidev) no action is taken. If they do not agree, iget 

checks to see if the current i-node' has been changed (imod 
*£ 1), If it has been changed the current i-node is written 
out to its device. Then if the current device is the drum, 
the new i-node i-nurober is checked to see if it is the i- 
number of the cross device file, if it is the current device 
becomes the mounted device and the i-number is set to 41 • 
(thus the root directory for the mounted device ig refer- 
enced). Then the new inode is read into the inode block 
in core via "icalc". 

CALLING SEQUENCE - 
jsr rO, iget 

ARGUMENTS - 

INPUTS - 

ii (current i-number) , rootdir 
cdev (new i-node device) 
idev (current i-ncde device) 

mnti (cross device file i— number) 

r1 (i-number of new i— node) 
rantd (raountable device tian\ler) 

OUTPUTS - • 

cdev, idev, imod, ii, r1 
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ID U5-3 imap 

FUNCTION -„ 

iroap finds the byte In core containing the allocation bit 
for an i-node whose number is in r1 . This core area is a 
copy of the super block and happens to be the i-node map. 
The byte address is calculated as follows: 

byte addr » addr of start of map + (i-number-41 )/8 
The bit position » (i-number-41 ) mod 8 

CALLING SEQUENCE - 
jsr rO, imap 

ARGUMENTS - 

INPUTS - 

r1 - contains i-number of i-node in question 
OUTPUTS - 

r2 - has byte address of byte with the allocation bit 

mq - has a mask to locate the bit position* 
a 1 is in the calculated bit position 

r3 - used internally 
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ID 05-5 itrunc 



FUNCTION - 

"itrunc truncates a file whose 1-number is given in r1 to 
zero length, "itrunc*" gets an inode via iget. It incre- 
ments through the i.dskp (list of contents or indirect 
blocks in the inode) table and frees the blocks specified 
there. If the file is small, the block numbers in the 
i.dskp list are freed. If the file is large, i.dskp con- 
tains pointers to indirect blocks. The block numbers in 
these indirect blocks* are .then freed and the indirect blocks 
are freed. 

CALLING SEQUENCE - 
Jsr rO, itrunc 

ARGUMENTS - 

INPUTS - „ „ ' 

r1 - contains i-number for use by iget m 

i.dskp - pointer to contents or indirect blocks in an inode 
i.flgs - contains flag for large file. See Section F, page 5 

i.size - size of file 

OUTPUTS - 

i. flags - "large file flag is cleared 

4 „.».*_ s — *- *~ '•> 1 

i.dskp - idskp+16 - the entire list is cleared 
setlmod - set tc indicate 1-node has been modified 

r1 - contains i-uumber on return from this subr. 
r3 - used in subroutine 
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ID #5-1 mget 

FUNCTION - w 

"ingest takes the byte number of a byte to be read/written In 
a file and obtains the physical block number of the block in 
which it occurs. The file offset for the byte (i»e» the 
byte number) is passed by passing a ppinter to the offset in 
u.fofp. The block number for the byte is returned in r1 • 

Along the way several things can happens 

1. The file is small (less than 8 * 256- words) and the 
byte number extends beyond the current size of the file but 
does not exceed 8 * 51 2» In this case mget assigns a new 
block from the free area of the file device and updates the 
i-node for the file by adding the physical block number of 
the new block and modifying the free storage map* 

2. The file is small and the byte number exceeds 8 * 51 2 , 
In the case the status of the file changes from small to 
large. mget sets the large file bit in i.flgs of the i- 
node* Next an indirect block is assigned to the file* The 

bloc.*', pointers in 1— node are moved into the new indirect 
block and a pointer to the indirect block is put in the 

incJc* Next a n«w data block is 'assigned via the large file 
handling logic, described below* 

3» ?he file is large and the byte number exceeds the 
current eis& of the fil« P but do*m? trot, exceed the capacity 
of the highest indirect block* mget assigns a new file 
block and adds a new entry to tine indirect block* 

4* 'Xne file is large and the byte number exceeds the 
i'n..;-::.;.-ct sis-ii of the t'l'l^j and also oxcsod:* the li;vdt oS; : the 
hi -~;\*?.t indirect blccK. i'\ r-ew ^rdireec block Is assigned 
ir^i-i free stc-Vcuj-j aftd a pointier to it ptjv:. in the .t-nodt:* 
Thsi-.n a net? file block is assigned and a pointer to it stored 
in the new indirect oleck* 

(St-<v File Structure write up in thv UNIX Programmer'' s Manu- 
al _) 

CALLING SEQUENCE ~ 
jsr rO, mget 

AfcGUMENTS - 

INPUTS - 

tufofp (file offset pointer), inode, u.off (file offset) 

OUTPUTS - 

r1 (physical block number)* r2 (internal), r3 (Internal), r5 

(internal) 
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ID U5-3 setimod 

FUNCTION - m 

sets byte at location irood to a 1 , thus indicating that 
the i-node has been modified. Also puts the tine of modifi- 
cation into the i-node • 

CALLING SEQUENCE - 

jsr rO, setimod 

ARGUMENTS - 

INPUTS - 

s.time, 8«time+2 (current time) 

OUTPUTS - 

irood, i»mtint, i.mtim+2 
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ID U6-4 cpass 

FUNCTION - 

cpass" gets the next character from the user into w rt • W A 
non-local return takes place (to the caller of writei ) 
when the users count (u. count) becomes zero. 

CALLING SEQUENCE - 
Jsr rO, cpass 

ARGUMENTS - 

INPUTS - 

u.count - users character count 

u.base - points to a users character buffer 

OUTPUTS - 

if u.count ^0 

u.count gets decremented 

r1 contains the next character 

u.nread gets incremented 

u.base - gets incremented to point to next character 

if u.count * w 

rO — return address to program that called writei' 

r1 - i -number of file under consideration 



. •» 
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ID U6-1 readi 



FUNCTION - 

read! reads from an i-node whose number is in rl • If the 
file in i-node is special a^transfer is made to the ap- 
propriate routine. If not^dskr"' is called and the file is 
read into user core. See ""dakr"* for details, 

CALLING SEQUENCE - 
jsr rO, readi 

ARGUMENTS - 

INPUTS - 

u.count — byte count user desires 

u.base - points to user buffer 

u.foft - points to word with current file offset 

OUTPUTS - 

u.nread -^accumulates total bytes passed back 
see "dskr 
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ID U6-2 dskr 

FUNCTION - m mm 

"dskr gets an inode into core via iget • It then sets 
u.count according to the following rules. If the number of 
bytes left to read in a file is greater than the number of 
bytes he wants to read u. count is unchanged. If the number 
of bytes left to read in the file is less than u. count, 
u.count gets set to that number* 

If the user offset u.fofp is greater than the file length 
there is nothing left to read so dskr returns. Once u.count 
is established a block address for the file is calculated 
via mget, the file is read into system buffers and the data 
is transferred to user buffers in core. If u.count is not 
the process is repeated until u.count is 0. Processor 
status is then cleared. 

CALLING SEQUENCE - 
Jmp dskr 

ARGUMENTS - 

INPUTS - 

r1 - contains i -number 
i.eize - file size in bytes 
u.count — byte count desired 
•- u.fofp - offset in file telling h«w many bytes haw* bee" read 

OUTPUTS - 

data in user buffers in core 
r2 - internal register 
pe - 

r3 - internal register 



Issue D Date 3/17/72 ID IMO.1-1 Section H.6 Page 3 



ONIX IMPLEMENTATION 



ID U6-4 dskw 



FUNCTION - 

"dskw" writes user specified data into a file on the drum, 
as follows: 

"dskw" obtains an i-node number from the stack. If the 
i-node currently residing in the i-node area of core has 
been modified, this i-node is written* out onto the drum in 
its appropriate position in the 1-list. In any event, the 
i-node specified in the stack by the caller is read into the 
i-node area of core. A file is composed of blocks. The 
caller can modify several blocks in several passes thru a 
single call to dskw*. The number of the block to be modi- 
fied next is calculated by 'dskw' from the file offset 
(relative to the start of the file in bytes) specified by 
the caller in (u.fofp). The caller specifies the number of 
bytes to be modified in u. count. If the number of bytes the 
user specifies plus the offset into the file is greater than 
the present size of the file in bytes, i.size, then the size 
of the file is increased to incorporate the data overflow by 
changing the file size field in the i-node for the file 
(which is currently in the i-node area of core). The time 
that this file size change occurs is also inserted into the 
1-node and the i-node modification flag (imcd) is set. 
*dskw* then uses (u.fofp) to calculate an offset (relative 
to the start of the block) which specifies the 1st location 
within the block at which the csllsrs dats. is to bs written. 
Note that the offset determines the maximum number of bytes 
of user data that can be written on the file during this 
pass thru *di3kw'* v 515. -file offset* If the number of data 
bytes the caller specifies is less than a block, the block 
is re-ic? from drum into a system buffer, then th~ appropriate 
bytes ;■ ; ,- c>e.:vriw*an. If the nai^tr of data, bytes is less 
than e block,, but i*xc«?edis 512«-file offset,, only 51 2 .-file 
offset ■:■--■*;** a ere overwritten. Succeeding pisses thru "'dskw* 
are nec^^n^xzy to writes out the rest of the? d-:tt<>j After each 
pass, the modified file block (in the system buffer) is 
written out on drum. When all required blocks are written, 
counters' and pointers are returned to the caller. 

CALLING SECUB1XE - . 
jsr r0» dskw 

ARGUMENTS - 
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INPUTS - 

sp — i-node number 

(u.fofp) - file offset 

u» count * number of bytes of data the caller desires to write 

i.size - size (in bytes) of file to be altered (this parameter 

appears in the w i-node whose number is |n sp). m m m 

see inputs for "*iget" t "setlmod roget , dskrd , wslot , sioreg 
r1 - pointer to callers data area 
(rt), (n), +1,,.., (r1) * (u.count-1) - the callers data 

OUTPUTS - 

i.size - file size (may have been modified^by (dskwj „ m 

see outputs for "iget", setimod , mget dskrd , wslot , sioreg 

r1 - points to the location succeeding the last caller data byte 

transferred 
r2 - points to the location (in the system buffer) succeeding the 

last system buffer byte overwritten. 
r3 - 
u.oount - 
modofied drum file 
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ID U6-2 passe 



FUNCTION 

"passe moves a byte of Information specified in the lower 
half of ri to the byte address specified by (u.base). It 
then increments u.base to point to the next byte address, 
increments u.nread, the number of bytes passed, and decre- 
ments u. count the number of bytes yet to be moved* If there 
are no more bytes to be moved, a non-localvretum to the 
caller of "readi" (through which control was .e^ejatually 
passed to passe) is taken. The current i-number if popped 
off the stack into r1 . If there are more bytes* to be 
transferred, the processor status is cleared and control is 
returned to the caller. 

CALLING SEQUENCE - 
jsr rO, passe 

ARGUMENTS - 

INPUTS - 

r1 - contains a data byte in the lower half 

u.base - contains a pointer to the user area of core to which 
the data byte is to be transferred. 

u.nread - the number of bytes transferred 

u. count - the number of bytes to bevread 

(sp) - the non-local return address m ■ m 

(sp+2) - the value of r1 prior to ■ calling passe 

OUTPUTS - 

(u.base) - 0,...p (u.base ) ~[u* count- 1 3 contain the ' transferred 

information 

u.base «■ points to the last byte transferred 

u.nread - contains the cmr".ber of bytes transferred and original 

value of u.nread 
u* count - contains the number of bytes that still must be read 
(up) - if non-local return popped twice 
pa - clsared 
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ID U6-2 rcrd 

FUNCTION - See "error" routine 

CALLING SEQUENCE - 

ARGUMENTS - 

INPUTS -,. 

OUTPUTS - 
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ID U6-2 ret 



FUNCTION - 

"ret is a special subroutine vreturn, used by the following 

subroutines! 



1. 


reti 


2. 


rppt 


3. 


dskr 


4. 


passe 


5. 


dskw 


6. 


bread 


7, 


bwrite 


8* 


revt 



in place of the standard return. In addition to performing 
standard return functions, "ret*" pops the stack and puts its 
vtelue in r1 . It also clears the program status word. ret 
can be used simply to clear the program status word by 
entering via its 2nd entry point. 

CALLING SEQUENCE - 

control should be passed to this*- routine by either a condi- 
tional or non conditional transfer to ret' (the 1st entry 
point), or to *1% the secondary entry point © 

ARGUMENTS - 

INPUTS - 

A. for primary entry t («p) 
B* for secondary entry t 

OUTPUTS - 

?.. for primary entry : r1 ,pa 
S. for secondary entry i ps 
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ID 06-2 rppt - reaa paper tape 

FUNCTION - „ 

rppt uses pptic to get a character In ppt input section 
of clist and to set reader enable bit in prs. If the ppt 
input section is empty and pptiflg e 6 (indication that the 
error bit was set during "normal operation ) return is made 
to "rppt" to instruction "br jet" which eventually causes a 
return to the caller of "read! • ^If a„character is avail- 
able in clist, return is made to rppt at jsr rO, passe « 

Upon return from "pptic", "rppt" uses "passe to place the 
character fetched by pptic into the users buffer area. If 
the number of characters that were specified by £he user to 
be read in has been read in, return from passe is made to 
the caller of readi. 

It is appropriate at this point to describe how all the ppt 
input routines and subroutines are tied together to -read 
gpt. First of all the ppt file must be' open, m To do this a 
sysopen*" for reading which sets the pptiflg indicating- 
file open. It also sets the reader interrupt enable bit in 
the prs and empties the ppt input portion of Clist, 

Once the file is open, a "sysread" of the ppt file is made, 
A pointer to the location where the characters are to be 
"laced alc»i" *-*ith the .-nunicr cf characters to bevread sre 
passed as arguments to sysread • sysread then uses rw1 

to set u, count equal to the number of characters to be 
read and "u,base* to t^e location where the characters are 
to be placed, "rea&i is then called which jumps to ''rppt 
which %n described above* It should be nc'' 1 -^ that ; „ when 
"pptic'' *t c-allsi to obtain a c.^rarter icoiu clist , the 
process tfi.ll be put to sleep if no characters' ar->?. in clist 
(wish --r-tiflg: si) and all characters *o be read in have not 
been x/p-k.U AJUjo t'r.e reader enable bit is sec* Dp-on comple- 
tion ox the input of the next c'haracter (ready bit set) the 
ppt Input interrupt routine (ppti) is started which uses 
wakeup'"' to wake up the process previously put to sleep, 

CALLING SECDOCE - 
jmp rppt 

INPUTS - m 

see inputs for "pptic , passe 

OUTPUTS - m 

see outputs pptic and passe 
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ID U6-1 rtty 

FUNCTION - 

essentially, rtty transfers characters from the console 
tty buffer into a user area of core, starting at byte ad- 
dress (u.base) 4 If^there are^no characters in the console 
tty buffer, rtty" calls canon , which gets a line (120 
characters) from the console tty clis't and puts it in the 
console tty buffer. The caller specifies the number of 
characters to be transferred in u. count. If the number 
specified is greater than the number actually in the console 
tty buffer 9 a synthetic return is taken to the caller after 
the characters in the buffer have been transferred. If the 
number specified is less than or equal to the number actual- 
ly in the^console tty buffer, a non-localized return to the 
caller of "readi" (which is the routine via which control 
was actually transferred to "rtty'*) is made when all the 
gharacjzers have been transferred to the users core area (via 
passe"). 

CALLING SEQUENCE - 

[conditional or unconditional branch, or jmp] rtty 

■ARGUMENTS - 

INPUTS - 

Uty +. 70. — conUius pointer- to the header of the console 

tty buffer. 
2(tty+70.) - 2nd word of console tty buffer header; contains 

a count of characters in the bufiier. 
4(tty+70i) - contains a pointer to the next character in the 
buffer* Pointer values can inelu-.k; (tty+70.) + 

see ir-.p\it?< for ear on , passe f retl 

OUTPUTS - 

r1 , r5 used internally by rtty , original values destroyed 

rSS - points to header of console tty buffer 
see outputs for canon , passe , retl 
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ID U6-3 wppt - write paper tape 

FUNCTION - 

wppt uses cpass to get a character from the users buffer 
area and "pptoc" to output the character on the punch* 

It is appropriate at this point to describe how all the ppt 
output routines and subroutines are tied together to output 
data on the ppt punch. First,, the ppt file must be open. 
This is done via a "sysopen for writing. This places en- 
tries in the fsp table and the user's fp area. 

Once the file is open a "syswrite" of the ppt file is made. 
A pointer to the location where the characters are stored 
along with the number of characters to, be w punched age passed, 
as arguments to syswrite. Then uses rw1 to set u. county 
equal to the number of characters to be punched and "u.base 
equal to the location of the characters. writei is then 
called which jumps to "wppt". 

"wppt" as mentioned above uses cpass to get a character 

from the user's buffer area. If the number of characters as 
specified in syswrite . If not pptoc is called. pptoc 
first checks to see if character count for ppt output in the 
"clist" is 250. If it is the process is put to ^sleep. If 
it isn't the character %m p5ac*»d in the clist and 
""starppt" is called. 



"starppt" uses getc to get a character from clist and 
inserts it into the p'pb if the ready bj.t is set. If it 

isn't , control is 'passed back to pptoc » 

Upon ccr.plet.t0r5 of out. put of the character in ppb (ready bit 
set' the paper tape cutout i nt.err--.ipt '/routine J^ppto) is 
start c-?. ,T ia >rr. interrupt* This routine cr:,ll;3 starppt 
which performs the following function on an interrupt in 
addition to those described in the previous paragraph. It 
checks to see xi. the character count for ppt output isr-less 
than 10. If it is it will wake up the process in the wlist 
entry for ppt output. 

As seen from above a process puts itself to sileep mien it 
has 250. characters in clist and is "awakened" by the paper 
tape output interrupt routine (ppto) when the count becomes 
less than 10. 

CAUSING SEQUENCE - 
jmp ppt 

INPUTS — 

(see inputs for "cpass" and "pptoc") 

OUTPUTS - 

(see outputs for "cpass" and "pptoc") 
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ID U6-5 sioreg 

FUNCTION - 

1. calculates the first byte location (in the I/O buffer 
assigned to the caller) into which the callers data is to be 
written. 

2. calculates the number of user data bytes to be 
transferred into this I/O buffer. 

3. performs bookkeeping functions, supplying the cfeller 
with information pertinant to the data transfer. 

CALLING SEQUENCE - 
jsr rO, sioreg 

ARGUMENTS - 

INPUTS - 

(u.fofp) - specifies the byte in a file (relative to the start 

of the file) at which the user wants to start writing 
data. 

r5 - address of data area of I/O buffer assigned to the user. 

u.base - address of 1st byte of user data. 

u.count - number of bytes of data to be transferred from user 

data area to I/O buffer. 
u.nread — number of hyt^s of &&+.& vrit**<=»n out on the file for 

this user previously. 

OUTPUTS - 

(u.fofp) — specifies' the byte immediately following the" last byte 

o." '-.ha file area in which the u.count: bytes of user 
c:;ta is ;-.c be *ri*_tin. 
r1 ..— sdotesvs of 1 en: byte of riser data. 
u+base - specifies the byte is*-, ad Intel'* foliovijv? the last byte 

■:■"': "j-er 6-..1.&. to he transferred to tht; 'l'fO buffer. 
u.count — specifies the number of bytes of u:i«r data left to be 

transferred after the proceeding sot is; transferred, 
u.nread «- upda-ceo to include the count of to be transferred bytes. 
x*2 — ©pacifies the "byte in the 2/0 buffer assigned to the caller 

at which the transfer of user's: data is to start » 
r3 — nurc our of byte© of user data to be transferred to users I/O 
buffer. 
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ID U6-2 writei 

FUNCTION - 

writei" checks to see if there is any data to toe written 
(on any device). If not, it does nothing more than return 
to the routine which called it. If there is data to fbe 
written, "writei" saves the 1-node number of the file to be 
written on the stack, so^it can w be used by the appropriate 
output routine* Then "writei" checks to see if the 'output 
is to a special file (those files associated with i-nodes 
1,«*.40«, or to a non-special file. Writes for non-special 
files are routed to the dskw" routine. Writes for special 
jfiles are routed to appropriate routines, as follows: 



Special File 



Write Routine 



ASR— 33 J console tty 
PC11 t paper tape punch 
core 



RF11/RS11 
RK03/RK1 1 

Ten /ruse 



fixed head disk (drum) 
movable head disk 
dectane unit 1 

I ! 

7 



(any std« tty) s tty unit. 



1 
2 

3 

5 
6 
7 



wtty 
wppt 

wmem 
wrfO 
wrkO 
wtap 



xmtt 

IB 



CALLING SEQUENCE - 
n srvrO, writei 

INPUTS - 

u. count - contains a count of the ntimber of bytes tofbe written 
vr1 - contains the number of the i-node' for the output file 

OUTPUTS - 

A: to the calling routine if return is made to itfby "writei" 

u.nread - is cleared 
B: to the write ^routine for non-special files 

u.nread - is cleared 

(sp) - contains the i-node number 
C: to the write routine for special files 

u»nread - cleared 

(sp) - contains the ino^v mr-sbsr 

rl - contains the index into the special filevroutinerjurap table 
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ID U6-3 wtty 

FUNCTION - 

"wtty uses cpass to obtain the next character in the user 
buffer area. If the character count for console tty is 
greater than or equal to 20, the process is put to sleep. 
If not, it then uses putc to determine if there is an entry 
available in "freelist" portion of clist . If there is 
"putc" places the character there and assigns the location 
to the console tty portion^of clist . „If there is no place 
available in the ^freelist portion of clist , the process 
is put to "sleep". If there was a vacant location, start- 
ty" is used to attempt to output the character on the tty. 
Upon return from "startty", the next character is obtained 
from the user buffer. If th§ buffer |s empty, control is 
passed via "cpass" w back to syswrite • When the process is 
awakened by "wakeup", it again tries to find a location 
available in ^freelist" and the character count for the con- 
sole tty less than 20 so it can output the character. 

CALLING SEQUENCE - 
jmp wtty 

ARGUMENTS - 

INPUTS - 

cr.+l — ccn;t*ir , c character count for console tty* output, 
(see inputs ror cpass , putc , startty , sleep 

OUTPUTS - 

r1 - (character from user buffer) 

ds «- processor priority e&t to B 

iB>ie outputs for cpasa s pate , startty , sleep * 
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ID U7-1 canon 

FUNCTION - 

canon handles the erase kill processing on the teletypewrit- 
ers, (console tty). r5 points to the start of the tty 
buffer. The argument following the call is where the char- 
acters are obtained, "canon*" returns only when, (1) a full 
line has been gathered, (2) a new line has been received, 
(3) an eot (004) has been received, or (4) 120 characters 
(the length of the buffer) have been received. 

canon works in the following ways 

1 ) The address of the start of the characters is put in 
buffer + 4 (4(r5)). 

2) buffer + 2 (2(r5)) is cleared. This is the character 
count. 

3) a character is gotten off the queue. If it is a kill 
character *§* a return to the beginning is made. Actually 
one starts over* 

4) If the character is an erase '#*„ the next character 
will overwrite the previous one and thereby erase it. 

5) If the character is an eot (004) the byte oointer is 

ro««*t to the first character and a return is swaae. 

6) If char is none of the above, it is put in the btsffer 
when the character pointer tells it to go 4 *4(rS). 

4(r5) a.za than increment ed. 

8) If th'ft chsr is e> r.?*w line i\n) the char polrtfir is re^et 
and a return i« made* 

9) If the buffer is full '(byte count > 120) the char 
pointer Is reset and a return is made. 

10) If the buffer isn't full, the next character off the 
queue ia put through the above tests. 

Note: canon should only be called when the number of al- 
ready treated characters is zero, i.e., when the char count 
« 0; 2 (r5) « 0. If the char count is 4 the character 
pointer, 4 (r5) points to the first character not yet picked 
up. 

CALLING SEQUENCE - 

jsr r0, canon, arg 

ARGUMENTS - 

arg - where characters are to be obtained from 
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INPUTS - 

r5 - points to tty buffer address 

10 (r5) - start of character buffer 

2(r5) - character count 

4(r5) - points to next character position in data area 

OUTPUTS ~ 

a full buffer, or a full line 

rt pointers to buffer +10 

4(r5) - character pointer reset to start of data area buffer + 10 



character 
stern, c^e 
srrea 



i number of char in buffer 

char pointer (buffer +10 to 
start) 



| 






tty buffer 

♦2 

+4 

♦6 

+8 

+10 
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ID U7-1 cesc 

FUNCTION - w . m 

"cesc is called by canon to check for an erase # or kill 
**§" character. r1 contains the character being tested. If 
the character is not an erase or kill the return is skipped. 
If the char is an erase or kill the character count and 
character pointer are decremented. If the previous charac- 
ter was a "\" the # or § are taken literally and the return 
is not skipped. 

CALLING SEQUENCE - 

jer rO, cesc; arg 

ARGUMENTS - 

arg 100 - @ means kill the line 

43 - # means erase last character 

INPUTS - 

r1 - character to be tested 
2(r5) - character count 
*4(r5) - previous character 

OUTPUTS - 

skip return if test char is not erase or kill 

if character was erase or kill 

2(r5) — character count gets decremented 

4(r5) - character pointer gste decremented 
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ID U7-7 cppt - close paper tape file 

FUNCTION - 

cppt assigns all ppt input locations in clist to freelist 
and sets "ppt, fig" to indicate file closed (=0). 

CALLING SEQUENCE - 
jmp cppt 

INPUTS - 

OUTPUTS - 

See outputs for getc « 

ps — processor priority set to 5 

pptiflg - set to "o" to indicate file closed 
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ID U7-6 ctty 

FUNCTION - 

ctty closes the console tty. All it does is decrement the 
number of processes that have opened the console tty file. 
The first byte of the console tty buffer is the number of 
processes that have^opened this tty byte. See F, page 11. 
A return is made via "sret". 

CALLING SEQUENCE - 

Jmp table in i-close 

ARGUMENTS - 

INPUTS - 

OUTPUTS - 

r5 - points to console tty's buffer 

(r5) - first byte of buffer gets decremented. 
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ID U7-8 error a 

FUNCTION - See "error" routine 

CALLING SEQUENCE - 

ARGUMENTS - 

INPUTS - 

OUTPUTS - 
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ID U7-3 get 

FUNCTION - 

Removes the first clist entry from the list identified by 
r1 , makes the second entry the first. Puts^the clist offset 
of entry removed from list in r2 return to normal • 

If the list identified by rl is empty, r2 is returned equal 
to zero, and return made to empty • 

If the list has Just one entry, the entry is removed and the 
first and last character pointers for the list are zeroed. 

CALLING SEQUENCE - 

jsr rO, get; empty: ; normal: 

ARGUMENTS - 

INPUTS - 

r1 (list identifier), cf+l(n), cf+l(r1) (see Section G for 
general description of tty I/O handling) 

OUTPUTS - 

r2 (offset into clist of entry just- removed from list r1 ) , 
cf+l(rl), cl+t(n), clist (r2) 
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ID U7-2 getc 

FUNCTION - 

getc removes the first clist entry from a list identified 
by arg, via call to get; decrements character count for 
list; puts the clist entry removed onto the free-list; w puts 
the character in the entry w into r1 and takes normfel re- 
turn. If list is empty take "empty return, 

CALLING SEQUENCE - 

jsr rO, getc; arg; empty: ; normal: 

ARGUMENTS - 

arg - list identifier 

INPUTS - 

r2 (clist offset from put) 

OUTPUTS - 

r1 (character on top of list), cc(arg), clist (r2) 
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ID U7-8 getspl 

FUNCTION - ■ 

"getspl gets a device number from a special file name. 
"u.namep" points to the name. namei is called to get the 
i-nurober. 1-number -4 is the device number. If it is less 
than or equal to zero or it is greater than 9 an error oc- 
curs. If not the device number is returned in r1 . 

* 

CALLING SEQUENCE - 
jsr rO, getspl 

ARGUMENTS - 

INPUTS - 

u.namep - points to the name of the special file 

OUTPUTS - 

r1 - device number of the special file 
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ID 07-5 iclose 

FUNCTION - 

"iclose checks to see if the file, whose i-number is in ti , 
is special. If it is, a transfer is made to the appropriate 
routine. If it isn't a return is made. 

CALLING SEQUENCE - 
jsr rO, iclose 

ARGUMENTS - 

INPUTS - 

r1 - contains i-number of file being closed 

OUTPUTS - 

If special file, r1 is put on the stack, i.e., the i-number 
is put on the stack. 
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ID U7-4 iopen 

FUNCTION - 

lopen opens the file whose i-number is in rt . If the file 
is to be opened for reading access is called and the i- 
number is checked to see if the file is special. If it is 
special, a jump table of transfer addresses takes care of 
transferring control to the correct special file routine. 
If non-special file w a return is made. If the file is to be 
opened for writing, "access" is called and a check is made 
to see if the file is a directory. If it is, an error oc- 
curs, because users cannot write into directories. Special 
files are handled in the same manner as above. 

CALLING SEQUENCE - 
jsr rO, iopen 

ARGUMENTS - 

INPUTS - 

r1 - contains i-number of the file to be opened 

OUTPUTS - 

files i-node is in core 

r1 - if i-number was negitive upon entry it is positive on 

exit 
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ID U7-S oppt - open paper tape file for. read or write 

FUNCTION - 

oppt performs the following functions: 

1. Sets the reader enable bit in prs. 

2. Assigns all ppt input locations in clist to freelist. 

3. Sets "pptiflg" to indicate file just open (=2) and 
places tO in toutt entry for ppt input. 

CALLING SEQUENCE - 
jmp oppt 

INPUTS - 

pptiflg - used to determine if file already open 

OUTPUTS - 

pptiflg - set by oppt to indicate file just open 

ps - processor priority set to 5 

prs - contains reader enable bit 

toutt ti - contains count for ppt input 

See outputs for getc • 
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ID U7-5 otty 

FUNCTJON - w 

otty opens the console tty for reading or writing. The 
interrupt enable bits are set in the tks and the tps. If 
the console is the first tty opened in this ^process assign 
its buffer address to u.ttyp return through sret . 

CALLING SEQUENCE - 

[conditional or unconditional branch, or jmp] otty 

ARGUMENTS - 

INPUTS - 

see inputs for sret 

u.ttyp - points to the buffer header for the process control 

typewriter 
(tty+70.) - lower byte of 1st word of header contains the number 

of processes that opened the buffer 
tty+70. — contains pointer to the header of the console tty buffer 

OUTPUTS - 

u.ttyp - points to the console tty buffer header if it was the 
1st tty opened by the process. Otherwise points to ? 
r5 - points to header of console tty buffer 
(r5) - lower byte (number of processes that opened the buffer) 

incremented by one. 
t)cs «* reader status register interrupt enable bit set* rest of 

bits zeroed, 
tps - punch status register 
See outputs for "sret" 
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ID U7-2 pptic - paper tape input control 

FUNCTION - 

"pptic performs the following functions for ppt input: 

1 . If the error, busy and done bits are not set in the prs 
and the character count for ppt input in the clist is less 
than 30, pptic sets the reader enable, bit, 

2. Uses "getc" to get character from paper tape input area 
of clist. If this area of "clist is empty, a check is made 
to see if "pptiflg" is set equal to six (indication that 
error flag in prs is set during normal operation). If it 
is, return is made to the calling routine ^ which in turn 

vreturns to its calling routine. If "pptiflg does not equal 
six, the process is put to sleep, 

CALLING SEQUENCE - 
jsr rO, pptic 

INPUTS - 

cc+2 - contains clist character count for ppt input 
prs - contains status bita for ppt reader 
pptiflg - indicates condition of ppt file 

OUTPUTS - 

prs - contains reader n enable bit 

see outputs for getc 

ps - processor priority set to 5 and then to 0. 
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ID 07-2 pptoc - paper tape output control 

FUNCTION - m 

pptoc first checks to see if the character count for ppt 
output in the clist is greater than 50. If it is, the pro- 
cess is put to sleep. If it isn't putc is used to place 
the character which is in r1 , in the clist. If the clist is 
full, the process is gut to sleep. If the character is 
placed in clist, "starppt is called to output the next 
entry in the ppt output section of clist. 

CALLING SEQUENCE - 
Jsr r0, pptoc 

INPUTS - 

cc+3 - character count for ppt input in clist 

OUTPUTS - 

ps - processor priority set equal to^fluf n m 
see outputs for "starppt and sleep and putc 
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ID U7-3 put 

FUNCTION - 

Takes a clist entry pointed to by r2, and makes it the last 
entry in the list identified by rt • 

If this is the first entry in a currently empty list then 
the first char pointer in ef is also updated. 

CALLING SEQUENCE - 
Jsr rO, put 

ARGUMENTS - 

INPUTS - 

r1 (list identifier) 
r2 (clist offset) 

OUTPUTS - 

cl+l(rl), clist-l(r2), cf+l(r1) 
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ID U7-3 putc 

FUNCTION - 

Puts a character at the end of a list identified by the 
argument in the putc call. 

In detail it takes a clist entry from the free list via call 
to "get". Appends the entry to the list identified by arg 
via call to put". Then fills in the new entry with a char- 
acter passed in r1 • 

CALLING SEQUENCE - 

jsr rO, putc; arg 

ARGUMENTS - 

arg - list identifier (see discussion in G on tty device 
I/O) 

INPUTS - 

r1 - character from device buffer. 

OUTPUTS - 

r2 - clist offset where character stored, cc(arg), 
elist-l(r2) 



Issue D Date 3/17/72 ID IMO.1-1 Section H.7 Page 17 



UNIX IMPLEMENTATION 



ID U7-7 sysmount 

FUNCTJON - 

sysmount announces to the system that a removable file 
system has been mounted on a special file. The device 
number M of the special file is obtained via a call to 

getspl". It is put in the I/O queue entry for the 
dismountable file system (sb1 ) and* the I/O queue entry is 
set up to read, (bit 10 is set), "ppoke" is then called to 
read the file system into core, i.e. the first block on the 
mountable file system is read in. This block is the super 
block for the file system. This call is super user res- 
tricted. 

CALLING SEQUENCE - 

sysmount; special; nami 

ARGUMENTS - 

special - pointer to name of special file (device) 
name - pointer to the nans of the^toot directory of the 
newly mounted file system, "name" should alwasy be 
a directory* 

INPUTS - 

mnti - records i-number of unique cross file device 

sp ~ contains the name of the file 

eb1 — I/O queue entry for the d< «wnur»tab] .<? file system 

OUTPUTS - 

mnti - i-number of special file 

mntd — device number of special file 
sb1 •» "has device number in lower byte 

files syjcem la read into core via ppoke 
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ID 07-8 sysumount 

FUNCT|ON - 

sysumount" announces to this system that the special file* 
indicated as an argument ^ is no longer to contain a remov- 
able file system, "getspl gets the device number of the 
special file* If no file system was mounted on that device 
an error occurs* mntd and mnti are cleared and control is 
passed to sysret. 

CALLING SEQUENCE - 

sysumount ; special 

ARGUMENTS - 

special - special file to dismount (device) 

INPUTS - 

mntd - device number of mounted device 

sb1 - I/O queue entry for the dlsmountable file system 

OUTPUTS - 

mntd - zeroed 
mnti - zeroed 
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ID U7-8 sysreta 

FUNCTION - See "sysret" routine 

CALLING SEQUENCE - 

ARGUMENTS - 

INPUTS - 

OUTPUTS - 
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ID U7-1 ttych 

FUNCTION - 

ttych gets characters from the queue of characters input- 
ted to the console tty. If there are none, sleep is called, 
ttych works in the following manner: 

1 • the processor priority is set to 5 

2* a character is gotten off the queue via getc if the 
list is empty, sleep is called* 

3* if not the process status is cleared and a return is 
made* 

CALLING SEQUENCE - 

Jsr rO, *(r0) ttych was an argument in the call to 
canon" • 

ARGUMENTS - 

INPUTS - 

OUTPUTS - 

ps SB 

r1 - character on top of list 

See getc number 7, page 2 for others* 
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ID U8-1 bread 

FUNCTION - m 

bread reads a block from a block structured device (rk, 
rf, tape). It operates in the following way: 

1. if "cold" «1 (cold boot) the block^specified in r1 , is 
read into an I/O buffer via "preread". If its a warm boot 
(coldsO) the block in r1 ancj the next consecutive block are 
read into I/O buffers via preread". The reason two blocks 
arre read in is to speed up the overall reading process. On 
a cold boot, however, only two I/O buffers are available, so 
only one buffer us used. 

2. The block number is always checked to see if the maximum 
block number allowed on the device has been exceeded. (see 
argument) If the block number does exceed the maximum, an 
error occurs. 

3. "preread" is called again on the first block. Since the 
first block is already in an I/O buffer, all preread will do 
is reverse the priority (see bufaloc H.8, page 9) so that 
the first block is of higher priority than the second. 

4. Bit 14 of the first block's I/O buffer is set. 

5. Bits 10 and 13 (the read bits) of this I/O buffer are 
now checked. If they are set (reading is still in progress) 
and the^device is disk or drum, or the device is tape and 
"uquant" j£ w "idle" is called. If the device is tape and 
uquant = 0, sleep" is called. If bits 10 and 13 are 
(read done), bit 14 of the I/O buffer is cleared and the 
gata ls n moved from the I/O buffer to the users area. 

dioreg" does the bookkeeping on the transfer. 

6. If u. count «0 the reading is finished. If not. a branch 
back to the start is taken and the above steps are repeated. 

7. A return is taken to the routine that called "readi". 

CALLING SEQUENCE - 

jsr rO, bread; arg 

ARGUMENTS - 

arg - maximum block number allowed on device 

INPUTS - 

r2 - points to the users data area; r3 has the byte count 

(u.fofp) - is the block number 

cdev - is the device 

u.base — base of users data area 

u. count - number of bytes to read in 

r1 - is used internally as the block number 

cold - warm boot or 1 cold boot 

r5 - points to the beginning of the I/O buffer or the data area 

u. quant - time quantum allowed for each process 

Issue D Date 3/17/72 ID IMO.1-1 Section H.8 Page 1 



UNIX IMPLEMENTATION 

OUTPUTS - 

block or blocks of data into the users area starting at u.base 
(u.fofp) - points to next consecutive block to be read 
r3«0 - (used internally) 
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ID U8-3 dloreg 

FUNCTION - 

dioreg does the bookkeeping on block transfers of data* 
It first checks to see if there are more than 512 bytes to 
transfer. If so, it just takes 512. If not, it takes 
u. count. 

ARGUMENTS - 

INPUTS - 

u. count - number of bytes user wants transferred 
u.base - start of users data area 

OUTPUTS - 

r3 - used internally to hold the count 

u.nread - updated by adding r3 

u.base - updated by adding r3 

u. count - updated by subtracting r3 

r2 - has value of u.base before it gets updated 
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ID U8-2 bwrite 

FUNCTION - 

"bwrite writes on a block structured device (rf, rk f tape). 
It operates in the following way: 

1 ) The block number is placed in r1 • 

2) If the block number exceeds the maximum allowable block 
number of the device an error occurs. 

3) (u.fofp) is incremented to point to the next block in 
sequence. 

4) "wslot" is called to get an I/O buffer to write into. 

5) "dioreg" is called to set up the bookkeeping for the 
transfer. 

6) The data is then transferred from the users area to the 
I/O buffer. 

7) "dskwr" is called to write it onto the device. 

8) If u.count^td^ the procedure is^repeated. If it is, a 
return to the routine that called write! is made. 

CALLING SEQUENCE - 

jsr rO, bwrite; arg 

ARGUMENTS - 

«rg - is the maximum allowable block number for the device. 

INPUTS - 

(u.fofp) is the block number 

cdev - is the device 

r1 - is used Internally to hold the block number 

r5 - points to the I/O data buffer 

r2 - points to the users data area; initially its u.base 

u. count - number of bytes user desires to write 

r3 - has the byte count 

OUTPUTS - 

(u.fofp) is the next block to be written into 
r3=0 (used internally) 
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ID U8-7 drum 

FUNCTION - 

drum is the interrupt handling routine for the drum, drum 
is called after the transfer of data to or from the drum is 
complete, i.e., when the ready bit in the dcs (drum control 
register) is set. (see interface manual, page 73-74.) r1 , 
r2, r3 and clockp are saved on the stack (see setisp) calls 
trapt" to check for stray interrupt or error. If neither, 
it clears bits 12 and 13 in 1st word of transaction buffer, 
checks for more disk buffers to read into or write; then 
returns from interrupt by calling retisp. 

CALLING SEQUENCE - 

called by interrupt vector at location 204 after data 
transmission has taken place, i.e., ready bit of dcs set. 

INPUTS - 

same as setisp, trapt and retisp 

OUTPUTS - 

same as setisp, trapt and retisp 

CALLED BY - 

interrupt vector 

CALLS - 

setisp, trapt 
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ID U8-4 poke 

FUNCTION - 

"poke" performs the basic I/O functions for all block struc- 
tured devices. In order to understand the functioning of 
poke, the general handling of block structured I/O must be 
described. 

I/O on block structured devices is handled vj,a a collection 
of data buffers beginning at location buffer each buffer 
consists of a four word I/O queue entry followed by a 256 
word data buffer. 



An I/O queue entry has the following forms 



write bit - 
read bit 
waiting to write bit 
waiting to w^H&e bit 
inhibit bit 



-I 




15 13 12 10 9 7 







I device 


id 


.,_-,.- 


physical block number 






word count (-256) 






bus address 




—— 



byte - device id codes are 

» drum 

1 m disk 
other a dec tape 

byte 1 - write bit - when set indicates write the data in 

the buffer out onto the device identified in byte 
0. 

read bit - when set indicates read data off of the 
indicated device into the data buffer. 

waiting to write bit - if set indicates that a 
write operation has been requested but not yet com- 
pleted. 

waiting to read bit - if set indicates that a read 
operation has been requested but not yet completed. 

inhibit bit - when set will delay request for 
operation indicated by write bit or read bit until 
cleared. 
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byte 2.3 - physical block number (see Section F, discussion 
of file system) 

byte 4-5 - word count - number of words in buffer; loaded 
into word count register for device* 

byte 6-7 - bus address - address of first word of data 
buffer* 

In addition to the general I/O queue entries there are three 
special entries at locations sbO, sb1 , and swp. These are 
the I/O queue entries for the super block for drum (sbO), 
the super block for the mounted device (sbl), and the core 
image being swapped in or out (swp) - these entries are ini- 
tialized in the "allocate disk buffers" segment of code in 
uO. 

An area in core starting at location "bufp" and extending 
nbuf + 3 words, contains pointers to the I/O queue entries* 
This table of pointers represents the priority of I/O re- 
quests, since poke scares tfcese pointers starting at the 
highest address in bufp , examining the control bits in 
byte 1 of each I/O queue entry pointed to by the bufp 
pointers* If either bit 9 or 10 is set and neither of bits 
15, 13, or 12 is set then poke will attempt to honor the I/O 
request* 

To honor an I/O request, poke checks active to see if the 
bit. associated with the device is clear* If it is clear 
poke initiates the I/O operations by loading the appropriate 
device registers* In all I/O operations the interrupt is 
enabled and thus when completed an appropriate routine is 
called via the interrupt* When poke initiates a I/O opera- 
tion it clears bit 9 or 10 and sets bit 4-1/2 or 42V3 The 
routine called upon completion of the I/O operation will 

clear bit *t or >2f thus freeing that I/O queue entry* 

n /? 

"poke" calculates a physical disk address (which is loaded 
into register rkda) from the physical block number in the 
following way: 

let N a physical block number 
then 

sector number » remainder N 

12. 
surface * 0; quotient N even 

12. 
1 ; quotient N odd 

12. 

cylinder ■ quotient quotient N /2 

12* 
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"poke" calculates a physical disk address for the drum from 
the physical block number in the following way: 

The drum address is given in the dae and dar registers* 

1 15 11 10 

dae It I I dar 

track word 

The physical block number is essentially multiplied by 256 
(by shifting the low order byte into the high order byte of 
the dar, and shifting the high order byte into the low order 
byte of the dae. 

CALLING SEQUENCE - 
Jsr rO, poke 

ARGUMENTS - 

INPUTS - 

buffer pointers, 
I/O queue entries 

OUTPUTS - 

sets bits 12 and 13 on I/O queue entries where I/O operation 
is initiated. 
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ID U8-5 bufaloc 



FUNCTION - 

bufaloc" scans the I/O buf fers for block structured dev- 
ices, looking for an active buffer (bits 9,.. ,15 of the 1st 
word in the I/O queue entry for the buffer are set) which 
has already been assigned to the block number and device 
currently under consideration, or for a free buffer (bits 
9,.. .15 not set) which has been previously assigned to this 
device and block number. If there is no such buffer, the 
vacant buffer with the highest core address is assigned. If 
no free buffer is found, bufaloc cajls "idle". Eventual- 
ly, a buffer is located. The routine poke which actually 
performs the I/O operations scans the "bufp" area of core 
from the highest to the lowest address. Thus the priority 
of an I/O queue entry is established by where a pointer to 
the I/O queue entry appears in buf p. 

The w newly assigned buffer I/O queue entry pointer is placed 
in bufp thus making it the lowest priority I/O operation 
in the queue. The other entries in "bufp" are moved into 
higher addresses to accomodate the newly assigned buffers 
I/O queue entry pointer at location bufp. 

Once the buffer has been assigned the device number is put 
into the low half of word 1 of the corresponding I/O queue 
entry and the block number is put into word 2 of the I/O 
queue entry. 

CALLING SEQUENCE - 

jsr rO, bufaloc 

ARGUMENTS - 

INPUTS - 

??*«' o« r1 ^ < b l<*=K number J, bufp+2*n-2, (bufp+2*n-2), 
(bufp+2*n-2) +2tn«1,...,nbuf} * 

OUTPUTS - 

r5 (pointer to buffer assigned), bufp,... ,bufp+l2, (bufp), 
v bufp } -*2 , ps 
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ID U8-3 dskrd 



FUNCTION - 

"dskrd acquires an I/O buffer, puts in the proper I/O queue 
entries (via bufaloc) then reads a block (number specified 
in rl) into the acquired buffer. If the device is busy at 
the time dskrd is called, dskrd calls idle. Once the I/O 
operation is completed r5 is set to point to the first data 
word in the buffer. 

CALLING SEQUENCE - 
jsr rO, dskrd 

ARGUMENTS - 

INPUTS - 

OUTPUTS - 

r5 - pointer to first word in data block; (r5) ; ps 
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ID U8-3 dskwr I J 

PUNCTION - / ' 

"dskwr writes a block out on disk, via ppoke. The only 
thing dskwr does is <6&g) bit £5 in^theJEirst^word of the I/O 
queue entry pointed to by bufp • wslot which must have 
been called previously has supplied all the information 
required in the I/O queue entry. 

CALLING SEQUENCE - 
jsr rO, dskwr 

ARGUMENTS - 

INPUTS - 

OUTPUTS - 

(bufp) 
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ID U8-3 error 10 

FUNCTION - See "error" routine 

CALLING SEQUENCE - 

ARGUMENTS - 

INPUTS - 

OUTPUTS - 
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ID U8-3 preread 

FUNCTION - „ „ 

preread is^called by bread to read in a .disk block on 
device "cdev" • The block number is in r1 • preread gets a 
free I/O buffer via "bufaloc". It sets bit 10 of the first 
word of the I/O buffer and^then reads the specified block 
into the I/O buffer via "poke". If the I/O buffer already 
contains, the specified block bit 10 is not set and the call 
to poke" is skipped. The processor status is then cleared. 

CALLING SEQUENCE - 
jsr r0, preread 

ARGUMENTS - 

INPUTS - 

r1 - block number to read 

r5 - points to first word of I/O buffer 

OUTPUTS - 

specified block into an I/O buffer 

ps m 

r5 - points to first word of the I/O buffer 
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ID 08-1 rtap 

FUNCTION - ««_..,,. 

rtap is the read routine for dec tape. The device number 
is (i-number/2)-4. The i-number is in r1 upon entry, 
"bread" is called to read the proper block or blocks. 

CALLING SEQUENCE - 

from Jump table in readi 

ARGUMENTS - 

INPUTS - 

r1 - is the i-number of the special file 

OUTPUTS - 

cdev is the device number 
see outputs for "bread • 
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ID 08-6 tape 

FUNCTJON - w 

tape" handles the dec tape interrupts, "setisp" is first 
called to save registers and the clockp. The state of the 
dectape ( testate I i.e., reading, writing, idle, etc. is put 
in r3. trapt is then called to check for data transmis- 
sion errors. If none occur control passes to the appropri- 
ate dec tape routine depending on what the stat is. Control 
is passed by putting r3 in the pc. If an error occurs a 
jump to taper is made. 

CALLING SEQUENCE - 

interrupt vector 

ARGUMENTS - 

INPUTS - 

testate - the state of the dec tape (read, wri' e, etc.) 

OUTPUTS - 

control passes to appropriate dec tape routine 

pc - set to address of above routine 

r3 - is used to hold the address of above routine 
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ID U8-8 trapt 

FUNCTION - m 

trapt is part of the drum, disk, or dec tape interrupt 
handler. The ready bit of the device control register is 
checked. If the ready bit is not set the device is still 
active so a return through "retisp is made. It then^checks 
to see if a stray interrupt has occured. If not, "trapt 
checks to see if an error in the data transmission has oc- 
cured. If so, the return is skipped. If not, the return is 
not skipped. The return is via a jmp. 

CALLING SEQUENCE - 

jsr rO, trapt; dv; buf; act 
br normal 
br error 

ARGUMENTS - 

dv - device control status register (for dec tnpe it is 

the command register) 
buf - contains address of disk buffer being read into 

or written m m 

act -. tested against the bits in active to see if the 
device was busy 

INPUTS - 

active — contains bits that tell which devices are busy 

OUTPUTS - 

r1 - points to the disk buffer 

r2 - points to the device control and statusvregister or 
command register depending on the argument. 
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ID U8-2 tat devc 



FUNCTION - ^ 

tstdevc checks to see whether a permanent error has oc- 
cur ed on special file I/O, (It only works for tape, 
however.) If there is an error, the error is cleared and 
the user is notified. 

CALLING SEQUENCE - 

Jsr rO, tstdevc 

ARGUMENTS - 

INPUTS - 

cdev - the device in question 

(r1 )+deverr - the device's in question error indicator 

OUTPUTS - 

r1 m cdev a the device number 

If no error, nothing else happens 

If error, (r1 ) + deverr gets cleared and user notified 

via error 10. 
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ID U8-3 wslot 



FUNCTION - 

wslot calls bufaloc and obtains as a result, a pointer 
to the I/O queue of an I/O buffer for a block structured 
device, "bufaloc" has inserted into this, I/O queue the dev- 
ice number and block number which wslot passes from its 
caller to "bufaloc" • 

It then checks the first word of the I/O queue entry. If 
bits 10 and/or 13 £read bit, waiting to read bit-sec H.8, p. 
5) are set, "wslot calls "idle • 

When "idle" returns, or if bits 10 and/or 13 are not set, 
"wslot" sets bits 9 and 1 5 of the first word of the I/O 
queue entry (write bit, inhibit bit) , sets the processor 
priority to zero, and sets up a pointer to the first data 
word in the I/O buffer associated with the I/O queue. 

CALLING SEQUENCE - 
jsr rO, wslot 

ARGUMENTS - 

INPUTS - m 

See inputs for bufaloc - H.8 p. 1 

OUTPUTS - 

(bufp) - bits 9 and 15 are set, the remainder of the word 

is left unchanged 
ps - 
r5 - points to first data word in I/O buffer 

See outputs for "bufaloc" -H.8 p. 1. Note that w outputs given 
above take precedence over outputs from bufaloc 
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ID U9-6 rcvch - receive character 

FUNCTION - 

"rcvch" uses "getc" to read a character from the tty's read 
section of the clist. If it is empty, the process is put to 
sleep. When the process is awakened, rcvch again tries to 
obtain a character from clist, 

CALLING SEQUENCE - 
jsr rO, rcvch 

INPUTS - 

r2 - contains Sxtty no, 

mcsr + 8xttyn -^carrier detect and clear data term bits 

See inputs for "getc" and sleep • 

OUTPUTS - 

ps - set processor status to w 5 m 
See outputs for "sleep" and getc 
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ID U9-6 rcvt - read tty 

FUNCTION - m 

"rcvfc" places tty characters in the user buffer area* If 
the raw flag in the tty area is set a character is ob- 
tained from the tty's input area of cllst* If the flag is 
not set, "canon" is used to process a line of tty characters 
and place them in the users buffer area* 

CALLING SEQUENCE - 
Jrap rcvt 

INPUTS - 

r1 - contains 2xttyno. 

rcsr+8xttyno - carrier detect and clear data term bits 

tty+8xttyno+6 - pointer to tty buffer 

tty+8xttyno+4 -..raw data^flag 

See inputs for canon", "passe", getc and reveh 

OUTPUTS - 

ps - w set processor griority w to w 5 
See "canon", "passe , "getc", "reveh" and 
sleep outputs. 
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ID U9-3 starxmt 

FUNCTION - 

starxmt does the following: 

1. checks to see if the output character count for^the tty 
in clist is less than 10. If it is, "starmxt usgs wakeup 
to wakeup the process identified in the wlist entry for 
the tty output channel. 

2. Checks to see if the toutt entry for the tty output is 
equal to zero. If it is not, control is passed back to the 
calling routine. 

3. Checks to see if the ready bit in the tty's tscr regis- 
ter is set. If it is not, control is passed back to calling 
routine. 

4. Checks 3rd byte of tty's "tty" area (contains character 
left over after If.) for a null character. If the byte con- 
tains a non null entry, the entry is used as the next char- 
acter to be output. If the entry is nul, th§ nex£ character 
to be output is obtained from the clist via getc • 

5. Adds 200 to ASC11 code of character £o be ^output if 
digit 2 (far w left digit) of entry in partab table for 
character is a "2**. 

6. Checks tty's rcsr buffer to determine lf w carrier is 
present. If it is not, the character is dropped and a new 
character is obtained by returning to the beginning of the 
subroutine. If the carrier is present a cheeky is made to 
determine if the character to be output is ht . If it is a 
check is made to see if the tab to space flag (bit 1 of 
5th byte in tty" area) is set. If it is the character to be 
output is changed to a space (ASC11 40). 

7. Places character to be output in tty's *"tcbr" buffer, 
"starxmt" then does one of the following dependent on the 
character to be output (digits and 1 of the characters 

' partab entry are used as offsets into Jump table). 

a. For ASC11 codes 40-176, increments column pointer 
which is in byte 2 of tty area. 

b. For ASC11 codes 0-7, 16-37 and 177, does nothing. 

c. For ASC11 10 (bs), decrements column pointer. 

d. For ASC11 012 (If), checks for setting of cr flag 
(bit 4 of 4th byte in "tty" area).,, If„it is set ASC11 
015 (cr) is placed in byte £ of tty area (character 
left over after line feed). starxmt then determines 
value for the tty's output entry in the tout table. 
This value £s dependent on whether If is to be output 
or both If and cr • 
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e. Por ASC11 011 (ht) does sgme ..fooling around with 
col una count and 3rd byte of tty area w (character left 
over after If) dependent^on value of tab to space 
flag in 5th byte of "tty" area* It then determines 
value for the tty's output entry in the tout table. 

f. For ASCII 013 (vt) t determines value for the tty's 
output entry in tout table. 

g. For ASC11 015 (cr), determines value for the tty's 
output entry in tout table and sets column pointer = 0. 

CALLING SEQUENCE - 
Jsr rO, starxmt 

INPUTS - 

(sp) - contains 8xtty number 

tty+3+8xttynumber - contains offset in cc, cf, and cl lists for tty 

cc+(tty+3+8xttynumber)+1 - contains character count for tty 

output in clist 

tty+1 +8xttynumber - contains column pointer for tty 

tty+2+Sxttynumber - contains character left over after If 

for tty 

tty+4+8xttynuraber - contains flags for tty 

See outputs for "getc . 

rcsr+8xttynumber - contains carrier present flag for tty 
tcsr+8xttynumber - contains ready flag for tty 

OUTPUTS - m m . 

See inputs to getc 
cc+ ( tty +3 +8xttynumber ) 

tty+1 +8xttynumber see inputs above 
tty+2+8xttynumber 

tcbr+8xttynumber - contains character to be output on tty 
toutt+3+ttynumber - contains tout entry for tty 
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ID U9- xmtt 

FUNCTION — 

-xmtt" uses "cpass" to obtain the next character in the 
user's buffer area. If the character count for the ttv 
(identified by i-node number of tty s special file in stack J 
18 greater than 50, the process is put to sleep. If not, 
"xmtt uses "putc to determine if there is an entry avail- 
able in "freelist" portion of "clist . If there is, putc 
places the character there and assigns the location to trie 
tty portion of clist .„ If tfcere is no location available 
in freelist" portion of clist , the process m ±B put to 
sleep. If there is a vacant location, starxmt is used to 
attempt to output the character on the tty. Upon return 
from "starxmt the next character is obtained from the 
user's buffer area. If the buffer is empty, m con^col is 
passed back to the calling,, routine via cpass . When the 
process is awakened by awake , it trys again to finfl a 
location available in freelist and a character count for the 
tty output less than 50 so it can output characters. 

CALLING SEQUENCE - 
jmp xmtt 

INPUTS - „ 

See inputs for cpass • 

(sp) - contains i-number of tty s special file 
r1 - contains character to be placed in clist uponvreturn 
from cpass 

OUTPUTS - „ * - 

See inputs for starxmt and putc 
processor priority set to 5 
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